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tie 


Thelindependent magalial 


Can you escape from 
the Castle of Fear - 
or just pounce 

on a mouse? 


etm THELES 


your (0 


EXECUTION - They told me it would be bad but! never 
thought it would be like this... must kee clear mind 
can't afford to panic 
think my nerves will much more of this!!! A brain 
straining memory bashing game of words 


DATACOM PUBLICATIONS: 
407F Hockley Centre, 
Birmingham B18 6NF, 

Tel: 021-233 1800 


Trade enquiries 


welcome 


INTERPLANETA 
mind blowing, feat 
navigat 
otal cone 
me a GALAC 


SNAIL BACE - Unbearable 
thoroughbred racing snails 
is fast running out...don't Super featu 


nclude computer calculated odds, form 
guide 9 


sound ef 
Rivetting excitement quaranteed 


itement, 30: 
battle to the finish 


smooth m/e graphics 


All games just \ i 


£5.95 \ 


Each 


These games will be available 
from your dealer 

or POST FREE* 

direct frorn: 

DATACOM PUBLICATIONS) 
using the coupon provided 
(or just write in) 


ACCESS & VISA ORDERS: 0227 266289 


AMSTRAD USERS! 


pol! difficulty getting software for Ves CPC? Then let us help you! The Software 
Suppl es Co is a specialist trading dive sion of a long-established mail-order software 


supplier with a worldwide customer base of thousands. It is completely independent of @ Business 

TRAD and its subsidiaries. Shop by mail-order in confidence ani experience th the Educational and Recreational 

type of garvics others ustdream about: speedy and personalised! Once with us— you'll Software for all home and business computers — 
stick with us! Overseas orders are a speciality. A new catalogue giving full product @ Keen prices — excellent choice 


details will be sent to all customers on our mailing list. 


@ Send for lists (state machine type) or, if you want 


Please make all cheques payable to The Software Supplies Company. Please add 50p . 
P&P forall orders under £: OtEurope £1.00 peritem, ane rmail at cost elsewhere). Please something quickly, phone your order through now! 
state second choice if applicable. We're first with the newest! 
see al powers Projects 7.95 
Jetboot Jac nglis! 7.95 
APPLICATIONS GAM ES Jewels Of Babylon Interceptor 5.95 
Johnny Reb Lothorien 6.95 
Journey To Centre Of Earth Amsott 8.95 
Advanced Amsword Amsoft 19.95 3D Grand Prix Amsoft 8.95 Laser Warp Mikro-Gen 8.95 
Amscalc Eary Amsoft 19.95 3D Lunattack Amsoft 8.95 Lazy Jones Terminal tba 
Amscalc Xtra Amsoft 34.95 3D Invaders Quark Software 8.95 Lords Of Time Level9 9.95 
Cashbook Accounting(*) Gemini d65.9559.95 3D Spaceship Chase Amsoft 8.95 Magic Sword Database 8.95 
Database Gemini 25.95 19.95 3D Stunt Rider DJL Software 8.95 Manic Miner Software Projects 7.95 
Database Kuma 14.95 3D Time Trek Aniro 7.95 Master Chess Mikro-Gen 9.95 
Decision Maker Triptych tha  5-A-Side Soccer Amso 8.95 Match Fishing Alligata 9.95 
OFM Database Dialoi 24.00 Admiral Graf Spee Temptation 8.95 Message From Andromeda Interceptor 5.95 
Easi Award Word Processor Amso! 9.95 Adventure Quest Level9 9.95 Minder OK'Tronics 9.95 
Easy VAT Accounts Kuma 39.50 Alien Break-In Romik 8.95 Moon Bug Anirog 7.95 
Entrepreneur Triptych tha American Football MindGames(Argus) 9.95 Morris Meets The Bikers Automata 7.99 
Final Accounts(*) Gemini 465.9559.95  Amsgolf Computersmith 8.95 Mr Do(") Datasoft 9.95 
Home Budget Amsoft 19.95 Animated Strip Poker Lothlorien 6.95 Mr Wong's Loopy Laundry Artic Computing 8.95 
Home Accounts Dialog 24.00 Astro Attack Amsoft 8.95 Mutant Monty Artic Computing 8.95 
Home Accounts Gemini d25.9519.95 Atom Smasher Romik 8.95 Night Flight Il Amsoft 8.95 
Invostat Dialo 30.00 B Jacks Superstar Challenge Martech 7.95 Oh Mummy Amsoft 8.95 
Masterfile 464 Campbell tba Backpackers Guide Fantasy 7.50  Pacman(*) Datasoft 9.95 
Mini Office Database 5.95 Bananas Mogul 7.95 Pinball Wizard CP Software 9.95 
Project Planner Triptych tba Battle For Midway PS! 9.95 Pipeline Tasket 8.95 
Report Generator Gemini 425.95 19.95 Beach Head Access 9.95 Popeye OK'Tronics 5.95 
Stock Aid Dialog 30. 90 Beach Head II Access 9.95 Poster Paster Amsoft 8.95 
Tasprint 464 Tasman 9.9 Blagger Alligata 7.95 Punchy Mr Micro 8.95 
Tasword 464 Tasman 19. s Bounty Bob Strikes Back(*) Big 9.95 Pyjamarama Microgen 8.95 
Transact Dialog 30.00 B Jacks Superstar Challenge Martech 7.95 Pyjamarama/Masterchess Microgen 12.95 
VAT File(*) Gemini 25.95 19.95 Bridge Player-2 CP Software 9.95 Pyramid Fantasy 7.50 
Bridge-It Epicsoft 8.95 QuackaJack Amsoft 8.95 
Bruce Lee Datasoft 9.95 Raid Over Moscow Access 9.95 
BC's Quest For Tires(*) Sydney 9.95 Red Coats Lothlorien 6.95 
cast Placita c id soltasre He Retry yoEgen pee ‘ Hie 
entre Cou icso 95 joland Ahoy iem Software | 
UTILITIE AN Chess Ansett 8.95 Roland Goes Digging Gem Software 8.95 
Chopper Squad Interceptor 6.00 Roland Goes Square Bashing Gem Software 8.95 
Classic Adventure Aberso! 8.95 Roland In The Caves Gem Software 8.95 
Abersoft FORTH Amsoft 24.95 Classic Racing Amsoft 7.95 Roland In Time Gem Software 8.95 
Assembly Language Course Honeyfold 12.50 Codename Mat MicroMega 8.95 Roland On The Ropes Gem Software 8.95 
BASIC Programming Course Honeyfold 10.50 Colossal Adventure Level9 9.95 Roland On The Run Gem Software 8.95 
Concise BASIC Spec Amsoft 11.95 Combat Lynx Durrell 11.95 Roland's Revenge Gem Software 8.95 
Concise Firmware Amsoft 19.95 Confuzion Incentive 6.95 Scuba’s Dive Amsoft 8.95 
CP/M : Amsoft 99.00 Congo Bongo(*) Sega 9.95 Sherlock Holmes(*) Melbourne House 14.95 
Devpac Ass/Disassembler HiSoft 24.95 Crazy Golf MrMicro 8.95 Sir Lancelot(*) Melbourne House 5.95 
Font 464 HiSoft 7.95 Cubit MrMicro 8.95 Snooker Gem Software 8.95 
FORTH Amsoft tha Dambusters(*) Sydne' 11.95 Snowball Level9 9.95 
Graphics Designer Amsoft 11.95 Dark Star Crystal computing 7.95 Soccer Manager Amsoft 8.95 
Guide To Amstrad BASIC 1 Amsoft 19.95 Death Pit Durrell 7.95 Software Star Addictive 7.95 
Guide To Amstrad BASIC 2 Amsoft 19.95 Defend Or Die Alligata 7.95 Sorcery Virgin 8.95 
Guide To CP/M Amsoft tha Detective (Cluedo) Amsoft 8.95 Space Station Amsoft 8.95 
Guide To LOGO Amsoft tha Dig Dug(*) Datasoft 9.95 Space Hawks Durrell 8.95 
Introduction Manual Amsoft 9.95 Dragon's Gold Amsott 7.95 Spanner Man Gem Software 8.95 
Introduction To Sound 1 Amsoft 11.95 Dungeon Adventure Level9 9.95 Special Operations Lothorien 6.95 
LOGO Turtle Graphics Kuma 19.95 Electro Freddy Softspot 8.95 Splatt Incentive 8.95 
Machine Code Tutor New Generation 14.95 Emerald Isle Level9 8.95 Spyhunter(*) Sega 9.95 
Music Composer Kuma 9.95 Erbert Microbyte 5.95 Star Avengers Kuma 8.95 
Pascal HiSoft 34.95 Eric The Vikin: Mosaic 9.95 Star Commando Terminal 8.95 
Screen Designer DJL Software 14.95 Everyone's A Wally(*) Mikro-Gen 9.95 Star Clash Amsoft 8.95 
Speech Synthesiser DK'Tronics 39.95 Fantasia Diamond Hewson 7.95 Steve Davis Snooker CDS Software 7.95 
Speedmaster Fastload Micro 7.95 Fighter Pilot Digital Int 8.95 Stockmarket Argus Press 8.95 
Teach Yourself BASIC Amsoft 19.95 Fire Ant Mogul 7.95 Stunt Rider Amsoft 8.95 
The Quill Gilsoft 16.95 Flight Path Anirog 6.95 Sultan's Maze Gem Software 8.95 
& Zen Assembler Kuma tba Flight Simulator Quark Data 9.95 SuperChess 3.5 CP Software 9.95 
Football Manager Addictive 7.95 Super Pipeline(*) Tasket 8.90 
Forest At World's End Interceptor 5.95 Survivor Anirog 7.95 
Frank 'n Stein Amsoft 8.95 Swords Of Sorcery PSS 9.95 
Fru Macht mst 398 Technician Ted fe 735 
‘ruit Machine imsot ES @chnician Tei lewson : 
. EDU CATION AL Galactic Plague Indescomp 8.95 Test Match CRL 6.95 
Galaxia Kuma 8.95 The Hobbit Melbourne House 14.95 
Gems Of Strades Kuma 8.95 Trashman New Generation 8.95 
Animal Vegetable Mineral Bourne Educational 8.95 Ghouls Micropower 7.95 Tribble Trouble Software Projects 7.95 
French Is Fun (+ audio) CDS Software 7.95  Ghostbusters(*) Activision 10.99 —‘Tripod's Redshift 11.50 
German Is Fun (+ audio) CDS Software 7.95 Grand Prix Driver Brittania 8.95 Uncle Claude Alligata 7.95 
Happy Letters Bourne Educational 8.95  Grog's Revenge(*) Sydney 9.95 tp ‘n Down Sega 9.95 
Happy Numbers Bourne Educational 8.95 — Hareraiser Prelude Haresoft 8.95 hirlinurds(*) Ocean 6.90 
Happy Writing Bourne Educational 8.95 — Hareraiser Finale Haresoft 8.95 World Cup Football Artic 7.95 
Italien Is Fun (+ audio) CDS Software 7.95 Harrier Attack Durrell 8.95 World Series Baseball Imagine 6.95 
Map Rally Bourne Educational 8.95 Haunted Hedges MicroMega 8.95  Xanagrams Dean Software 8.95 
Music (7+) Computertutor 4.99 Heathrow AT Hewson 7.95  Zaxxon(*) 7 9.95 
Osprey! Bourne Educational 8.95 — Helicoptor Interceptor 5.95 Zodiac Anirog 6.95 
Party me Se) Pals be Hae ot Karn siteresptor Mee 
yme Lan Anirog tba joldfas! uma i 
Spanish Is Fun (+ audio) CDS Software 7.95 Home Runner Brittania 8.95 SOFTWARE PRODUCERS: Please let us know of new products — 
Star Watcher Triptych 24.95 House Of Usher Anirog 6.95 planned or released —for inclusion in our detailed catalogue and 
Time Man One Bourne Educational 8.95 Hunchback Ocean Software 8.95 adverts. 

Time Man Two Bourne Educational 8.95 Hunter Killer Protek 8.95 if the hotline answerphone is in use and you'd rather not place an 
Weng Tutor Amsoft tba Hyperblaster Lothorien 6.95 order on the machine please leave your name and number and 
jizz Quiz (7+) Computertutor 4.99 Interdictor Pilot Supersoft 17.95 someone will rater yourcall remptty: Wevalueyourcustom. . 
World Wise Bourne Educational 8.95 Jack & The Beanstalk Thor 8.95 and we want to be able to help you. Remember to state machine 

Word Hang Bourne Educational 8.95 Jammin Tasket 8.95 type. 


p.o. box 19, whitstable, kent ct5 ‘tj 
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UY SPECIAL OFFER 
Missed our original speech 
synthesiser offer? Here's 
another chance to join the 
thousands of users who are 
teaching the Amstrad how to 
talk. 


EA News 


Keep up to date with the latest happening’ and new 
arrivals in the busy, expanding world of the Amstrad 
computer. 


BEGINNERS | 
In our easy to follow introduc- X& 
tion to loops we look at YOUF i s 
micro’s WHILE .. . WEND —° 477A 

command and find out more 
about INPUT. 


e ( SOFTWARE SUR 


Software is flooding the market for the CPC: 
team of frank and thorough reviewers Pee a c 
some of the latest releases. 


The fifth part of this highly praised 
series uncovers the remaining Z80 
registers and shows how they can 
be used as simple machine code 
variables. 


{4517S AND BYTES __ 
We delve deeper into the art of manipulating binar is 
numbers with a close look at the logical operator — = 
EOR. 


READY REFERENCE 
With the fifth of our useful and easy to read arts | syot 1 
can have the Amstrad’s string handling commands at 

your fingertips. LEFT$, RIGHT$ or straight down the 
MID§$, they'll all be so much easier to use. 


Computing with the Amstrad 


These furry blighters are hard to catch at the best of 
times. This one will cause you untold problems—it can 
even gnaw through the wall that you're building to 
trap it. 


‘Type in many magazine advent- 
/ures and in so doing you will 
discover all the answers to the 
-problems. Not so here in this 
devious concoction by the A team 
— the listing gives nothing away! 


AL’S BEAT 


Fed up typing in listings and then not getting them to 
run? This month our tame Mr Plod starts a series of 
tips on how to prevent errors occurring and some 
hints on how to find them when they inevitably do. 


RSX EXPLAINED 


aa easy to follow article discusses the Amstrad’s 


| powerful Resident System Extensions capability, 
_showing you how to create new commands and 
_ implementing them in simple routines. 


ANIMATION 


In Part II of this fascinating series, we 
show you how to move characters 
around the screen using a technique 
called ‘pallette switching’. 


ZO TRONN CYCLES 


Dare you take up the challenge of the Maze of Death 
in this two player classic? Compulsive and addictive, 
_ make sure you play it with a good loser! 


eee 


= CLICHARA CTER MAKER 
sate and manipulate your own personal character 
with this superb utility. Once you've used it you'll 
_ wonder how you ever managed without it. 


Our puzzles expert does a ‘five card trick’ and provides 
you with an answer to last month’s problem. 


7 4 VANALYSIS 
|The: ‘tree of life’ may appear to be a complicated 
structure, but Trevor Roberts demonstrates a routine 
| to devise a simple one. 


The part of the magazine you write yourself. Just a 
small selection from the many interesting and 
informative letters you've been sending us. 


od oO O GRAPHICS 
“Now it's time to get a little more ambitious and 
plore the graphics screen. The commands MOVE, 
i MOVER and DRAWR all come under scrutiny 


Can you find his lost toys? Shape 
recognition provides hours of fun 
with this family favourite. 


ORDER FORM 


Take out a subscription, order a back issue, cassette 
tape, dust cover or binder — you can do it all on one 
simple form. 


you like making noises? Nigel 
Peters does, and this month he 
shows you how to get your 
_ Amstrad to make them as well. 


| Do 
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QUICK TO LEAR 


THAT'S... 
IN 
Meeric 


JUST LOOK WHAT THIS 
PACKAGE CAN DO! 


SPREADSHEET 


DATABASE 


RECORD No- i 
h 1 
RECORD No- 


ANDREWS 
JONES SUN es 
SURNAME? a 


sates Zoom ae Rineeant 12 ec 
ae Bee 
ace: 92 
WORD PROCESSOR - ldeal for writing recon 10-2 corer ORE, 
letters or reports! Features: Constant time ene PETE capo noomesst eseron. 
display @ Constant word count (even soecesag, Sy ona coer 
shows words per minute) @ Normal or ee. 


double-height text on screen or printout. 
SPREADSHEET -— Use your micro to 


manage your money! Features: Number 
display in rows and columns @ Continuous 
updating @ Update instantly reflected 
throughout spreadsheet @ Save results for 


RECORD No- ~ 
RECORD No- > 
: SMITH 
SURNAMES or JANE +  aApDRESS!? GTON 
FIRST Nr HIGH STREET 21, MOR 
ADDR! * GALFORD 
SALF 


ADDRESS?? Mh 3-B0925 
RESSS? TELEPHONES 

AOE PHONE: gos-6142t AGE: 3° 

AGE: 27 


pena 
RECORD No- 
RECORD No- 4 


SURNAME: BROWN 


| NAME: IAN R 
SURNAME? NOTES. cRRESSI: v2, rene 
FIRST NAME: TAM 5 poaD + ADDEEgsz: NORWICH 
appressi: 177 au EPHONE: 831~7"° 
ADDRESS?: SUS 986 7esa3 Tee, 2 
TELEPH' mi 
future amendments eal 


GRAPHICS — Turn those numbers into 
an exciting visual display! Features: 3D 
bar chart @ Pie chart @ Graph. 
DATABASE -— Use it like an office filing 
cabinet! Features: Retrieve files at a 
keystroke @ Sort @ Replace @ Save 


: .and it’s all at 
@ Print @ Search. price of just 


RECORD No- s 
RECORD No- © 


SURNAME! BRO 
FIRST NAME: RO 


al 
AD 
ADDRESS!: $= ELF RO 


ADDRESS=* 


FORD TELEPHONE? © 
appress?: NER L23451 ace: 1! 

TEC REDON Biot 

ace: 15 


N, EASY TO USE 


Nica ==-SaTAL 


Li -- oe ce MBER 
-- DEC! 
J === -GerORER NOVERBER 
= cERTEMBER OC 
1 SEFTE 


~ AUGUS 


TOTAL SPENT 


(~ 


Of the 
d Processor 
ious Printout 
Silable, 


ais 2s a SS Ron str a tas 5 orf the Ming 
KF ice word Processor 
TtOUs 


Showing 
Printout 


the 
SPtions 


Avail Sable. 


is a demonstration 


of the MINT OFFICE word Proce 
9 the various Prin 


tout options available, 


emonstration of the MINI OFFICE Word processor Showing ¢ 
F2ONS available, 


I 206 


TOTAL SPENT 


This is a cemonstraty 


Processor showing th 
available, 


the unbelievable 


5 99 DATABASE SOFT WARE 
CA 


3” DISC £9.95 


Using the advanced graphics 
techniques developed for the 
game “Dark Star” the Design 
Design team bring you TANK 
BUSTERS. You take control of 
an advanced battletank on the 
battlefield of the future. 

Your mission is to seek and 
destroy the enemy forces.intent 
on your annihilation. 

R.R.P. £7.95 


DARK 
STAR 


At last available on the Amstrad, 
the game that was awarded 

10 out of 10 in Personal 
Computer News and the only 
game ever to receive a 

100% rating in Crash Magazine. 
This is the fastest three 
dimensional space simulation 
available for any home 
computer. 

R.R.P. £7.95 


Design-Design Software, _ 
2 Ashton Way, East Herrington, 
Sunderland SR3 3Rx. 


Trade enquiries to:— 


125 Smediey Rd.,Cheetham Hill, 
Manchester M8 7RS 
Telephone 061 205 6603 


danteyy 


@ Original Spectrum Classic 


WARNING: 
@ Arcade Action 


This Game is 


@ 120 Chambers ‘_\ Highly Addictive 
@ 60 Wierd Aliens 


hots EAA 


NOW AVAILABLE FOR 
AMSTRAD 


£4.95 


inc p&p 


THE PYRAMID IS AVAILABLE FROM ALL GOOD SOFTWARE RETAILERS OR FROM 
FANTASY SOFTWARE, 27A ST GEORGES ROAD, CHELTENHAM, GLOUCESTERSHIRE 
AT £4.95 INCLUDING POST AND PACKING 


Let your fingers do the talking...with this special 


Now you can teach 
your Amstrad to talk! 


How it works 


AT the heart of the dk’tronics speech synthesiser lies an 
incredibly powerful chip that has split the English 
language into its component parts — or allophones as 
they are known. 

Altogether there are 59 allophones and five pauses 
stored in the speech chip's internal ROM. These can be 
combined to create a virtually unlimited vocabulary. 

The potential of this chip is realised by dk’tronic’s 
sophisticated, yet simple to use software. The brilliant 
program design enables the Amstrad to actually speak 
the words you type, in straightforward English, without 
having to resort to complicated phonetic spelling or 
difficult programming techniques. 

Written to be as user friendly as possible, the 
synthesiser adds eight powerful commands to Amstrad 
Basic. 

If you prefer complete control over your programs, 
though, full details are given for Basic and machine 
code programmers to exploit the tremendous scope of 
the synthesiser without using the software supplied. 

In fact this system supports four different modes of 
use. 


The first mode allows you to sound words using only j 


the Amstrad’s normal Basic commands. However, as 
you get more ambitious with your speech, a second 
mode is provided. This gives eight extra commands to 
use from Basic, making using the synthesiser even 
easier. 3 

The third mode is the text to speech converter. 
When this is in operation speech can be typed in using 
normal English and the Amstrad does the rest. There’s 
no need to work out the allophones as in the other two 
modes — the Amstrad does it for you. 

As if all this wasn’t enough there’s the fourth mode. 
This has the synthesiser converting whatever appears 
on the screen into speech. Using this, you can literally 
listen to your listings! 


YOU can add an exciting new dimension to 
computing with your Amstrad - with the help of 
this remarkable new product from dk’tronics. 


It comes complete with the latest and very 
versatile speech chip, a powerful stereo 
amplifier and two high-quality 4in speakers, 
specially designed to match the Amstrad 
CPC464. 


And because this is a special reader offer it 
comes to you at £5 off the normal retail price of 
of £39.95! 


Fitting it is simplicity itself. All you have to 
do is to plug the synthesiser’s interface into the 
floppy disc port at the back of the Amstrad and 
the jack plug into the stereo socket - and away 
you go! 

With its volume and balance controls you will 
find you can put dramatic realism into the sound 
output of your Amstrad. All sounds that 
previously came from the Amstrad’s 14in mono 
speakers are now sent out via the interface in 
stereo. 


So even when you're not using it as a speech 
synthesiser, it can bring startling depth and 
drama to the music and sound effects of all your 
favourite games! 


These are the sounds - and pauses - you can create on your Amstrad 


fat 
great 
hair 
farm 
aught 
rib 
big 
common 
uncle 
sky 
church 
could 
do 
bend 
see 

ER cater 


= 


pi St ood oe 


= 


Column 1: Sound, Column 2; Allophone name. 


thin 
they 
bathe 
succeed 
cook 
compute 
even 
wool 
whig 
yes 
200 

18 aS 
3@ a8 
58 aS 
188 a9 
288 aS 


Column 3: Allophone number. Column 4: Example word. 


Computing with the Amstrad reader offer! 


log 


Look at what this et 
package offers you: Ot lseff 
* Speech synthesiser with almost 

unlimited vocabulary 
* Easy-to-use commands - it accepts 

normal English words 
* Built-in stereo amplifier with twin speakers 
* Programs can run while the speed chip talks 


OD loses odie the dtc Sacach arate: Cre, SSS 
Please send me the dk’tronics speech synthesiser for my Amstrad CPC464 


O I enclose cheque for £34.95 (incl. VAT, p&p) 
made payable to Database Publications Ltd. 


Eight additional 
Basic commands 
iSPON Speech on. 


I wish to pay by 
O AccessCard No, a aac 


'SPOF Speech off. Sp ee cree a 
!FEED,n Feed speech buffer direct. Signed 

‘{FLUS Clear speech and text buffers. 

iSPED,n Speech speed. Name = = — 
‘OUTM,1 PRINT text to speech. 

tOUTM,2 Screen output to speech. Address - —— 


tOUTM,3 Output to screen and speech. 


POST TO: Speech Synthesiser Offer, Database Publications, 
68 Chester Road, Hazel Grove, Stockport SK7 5NY. ENG 


Allow 28 days for delivery — = I ES ES EE 
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Going 


live on 
Prestel 


MICRONET has launched a 
major innovation in interactive 
viewdata — the first live pro- 
gramme on Prestel to be 
scheduled on a regular weekly 
basis. 

Celebrity Chatline gives 
micro owners their first chance 
ever to interview well known 
personalities direct from their 
home computers over the 
Micronet system. 

The service is a development 
of the highly successful Late 
Night Chatline which is second 
only to Micronet itself in the 
Prestel Top Ten of most popular 
areas accessed. 

As Micronet members elec- 
tronically send questions on 
special message frames, the 
night's celebrity replies on-line 
straight away via his own home 
computer. 

One of the first guests on 
Celebrity Chatline was Derek 
Meakin, managing editor of 
Computing with the Amstrad 
who commented: “‘It was grati- 
fying for Database Publications 
to be chosen to help launch this 
exciting new development in 
interactive viewdata. 

“This is yet another example 
of the pioneering spirit behind 
the Micronet operation and 
helps to explain why micro users 
are joining in ever-increasing 
numbers”. 

Celebrity Chatline is on 
Micronet 800 every Wednesday 
between 7 and 8pm. 


IN LINE FOR TOP AWARDS 


Amstrad is riding the 


Stock Market storm 


THE nervous mood affecting 
the computer industry has 
even rubbed off on Amstrad, 
star of the 1984 micro 
market with 200,000 mach- 
ies sold. 

Success of the CPC464 
pushed the company’s profits 
up by more than 50 per cent to 
£9.5 million over the last six 
months. 

Despite this tremendous 
achievement, stock exchange 
jitters have meant a drop in 
share values from 80Op to just 
over 7Op at press time. 

But Amstrad shouldn't worry 
about this temporary situation 
caused by stock market concern 
over the home computer 
industry in general. 


Survive 


The company has the right 
sort of product to survive ‘‘the 
year of the long hard slog” says 
industry expert John Rowland, 
computer merchandising con- 
troller for leading high street 
chain W.H. Smith. 

“The trouble is that the city 
finds it a very difficult market to 
understand because of the 
technology involved”, he told 
Computing with the Amstrad. 

“So as soon as anything 
adverse is said they tend to 
throw their hands in the air and 
rush to get their capital back 


Profits up 
50 per cent 


into areas they know and which 
will guarantee a 40 per cent 
return. 

“Despite announcing record 
profits recently, Amstrad’s 
shares have not done well — all 
because they are now so closely 
identified with computers. 

“But whether the city men 
appreciate it or not, computers 
are here to stay. 

“This is going to prove a most 
difficult year for the industry. 
Not only are the money menina 
state of jitters resulting in a loss 
of confidence, but the market 
itself is about to be transfor- 
med”. 

Rowland predicts there will 


be a polarisation of the micro 
scene which only strong com- 
panies with first rate products — 
like Amstrad — will survive. 

“The next stage will see the 
market divide sharply’, he 
claims. ‘At one end there will be 
demand for machines up to 
around £400 such as the 
CPC464. Then there will be a 
huge gap up to the low end 
entry business machines at 
around £1,200. 

“| see the gap in the middle 
as the ‘black hole’ where 
machines will satisfy neither the 
home computer fan nor the 
professional. 

Rowland does not see the 
traumas currently affecting the 
industry lasting much longer 
than the end of the year. 

“| believe for those who are 
still around, 1986 will in fact be 
a very exciting and rewarding 
year’, he claims. 


In the top four 


THE CPC464 outsold all but three other types of computer in 
the final quarter of 1984 according to a recently released 


survey. 


Amstrad captured eight per cent of the market, behind 
Spectrum, Commodore 64 and Electron but ahead of the 
BBC Micro, Commodore 16 and Spectrum Plus. 

These seven machines accounted for 86 per cent of the 
estimated 650,000 micros sold in the final three months of 


last year. 


NOMINATED FOR 


MINI Office, the chart topping 
business package from Data- 
base Software for the Amstrad, 
has been nominated for The 
British Microcomputing Awards 
1985 in two major categories. 

It has been shortlisted for 
both the Home Software class 
and Thames Television’s Data- 
base Home Software of the 
Year award. 

Recognised as the Oscars of 
the computer industry, The 
British Micro Computing 
Awards this year attracted more 
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than 1,000 entries. 

Organised by Personal Com- 
puter World, The Sunday Times 
and Thames Television, the 
awards ‘seek to define tech- 
nological excellence and value 
for money for the consumer”. 

Mini Office first hit the trade 
headlines because of its revol- 
utionary price — just £5.95 fora 
professionally written suite of 
four programs. 

Consisting of a database, 
word processor, spreadsheet 
and graphics, it can turn any 


home computer into an inex- 
pensive office tool. 

“We are delighted to have 
been shortlisted,’ says Derek 
Meakin, head of Database. 
“After all, a truly professional 
business software package at 
this price was a gamble — and 
fortunately it has paid off.” 

All the shortlisted products 
are to go before a panel of 
judges who will then select the 
top three finalists in each 
category and ultimately the 
outright winner. 


pelo 
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Chris detects 
a Star prize 


IF ever Amstrad’s marketing 
manager Chris Horseman tires 
of the computer industry he 
could always use his other great 
talent and become a private eye. 

Horseman proved he can 
compete with Mike Hammer 
when he was declared grand 
winner of the Murder To Go 
mystery competition at the 
recent Consumer Electronics 
Show in Las Vegas. 

The contest was organised 
by software house Infocom to 
publicise its latest interactive 
mystery program, Suspect. 

Horseman and the other 
contestants assumed roles as 
detective, noting their sus- 
picions of whodunnit on a sleuth 
sheet provided by Infocom. 

A theatre troupe masquerad- 
ing as possible suspects enac- 
ted scenes concerning the 
crime. 

After considering a police 
interrogation of the suspects, an 
autopsy report and a checklist of 
personal assumptions the com- 


petitors had to identify the 
murderer, the motive and the 
weapon used, 

Several contestants correctly 
identified the guilty parties — but 
only Horseman deduced the 
means by which the victim was 
polished off. 

His prize — another Murder 
To Go mystery competition, this 
time involving a weekend for 
two in Bermuda. 

“Unfortunately this clashed 
with my move to a new house 
so | wasn't able to go”, 
Horseman told Computing with 
the Amstrad. 

“However the organisers 
sent me a nice cheque instead, 
so it all turned out quite nicely”. 

Good news for CPC464 
owners is that Amstrad is 
considering making Infocom’s 
interactive fiction software 
available here. 

It runs on CP/M which the 
Amstrad disc system supports 
and would be marketed on 3in 
discs. 


The SMC mouse — soon to be available for the Amstrad. 


16-colour mouse on 


A MOUSE complete with icon 
type graphic software and sprite 
designer for the CPC464 will be 
available before June from SMC 
Supplies. 

Phil Sabin of SMC told 
Computing with the Amstrad 
that the software will be similar 
to that of the pioneering 
Macintosh, but offering 16 
colours. The Macintosh only has 
black and white. 

Features will include various 
brush shapes, air brush, fine 
point, rubber banding, triangles, 
circles, boxes, fill, variable size 
text, save/load from tape/disc 
and screen dump to printer. 

The mouse has three but- 
tons, though SMC uses only two 
with its software, and is 
connected to the computer via 
the joystick port. It can be used 


Interface brings in 
the robots 


AN interface cable which 
allows IGR’‘s turtle-like 
robot Zero 2 to be operated 
by the CPC464 will be on the 
market this month. 

The robot, which sells in kit 
form for £79.95 and assembled 
for £99.95, has been produced 
initially for education and 
games. 

But IGR says over the 
coming months it will be 
upgraded to perform simple, 
useful tasks as well as becom- 
ing the basis for a sophisticated 
robotic games playing system. 

Zero 2 is a small robotic 
device equipped with wheels, 
pen, lights, line follower and 


Now for the 


PLAYING for your country in the 
World Cup can become a 
regular experience with World 
Cup Football from Arctic Com- 
puting. 

Up to nine people can play, 
each with a different team. 
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two-tone horn controlled by 
signals through a cable from the 
computer. 

It is capable of precision 
movement in forward, back- 
ward or turning motions to 
accuracies of 1mm or one 
degree, enabling programs to be 
written to instruct the turtle to 
draw a trail of complex shapes 
accurately, says IGR. 

Zero 2 can be equipped with 
a bump sensor so the computer 
can be informed that the robot 


World Cup 


Players choose their team from 
a menu of countries and guide 
their men round a 3D pitch. 
Depending on which team 
they are up against they play 
either an opponent or the 
computer. Price is £7.95. 


has met an obstacle, and can 
issue commands to avoid it. 

Developments are underway 
to give Zero 2 many more 
abilities such as speech syn- 
thesis and a two way infra-red 
link that will do away with the 
need for an umbilical con- 
nection. 

Zero 2 is primarily intended 
for three markets: 
@ Domestic — for education at 
home and personal recreation 
and experimentation. 
@® Schools — for teaching 
interaction with the computer, 
logical thinking and as a focus 
for programming projects. 
@ Technical colleges — for 
teaching control theory, 
robotics, and providing a mech- 
anical base for experimental, 
electrical design projects and 
advanced programming. 


the way 


as a joystick with one or more of 
the buttons being used as fire 
keys. 

All the software will be in 
machine code and supplied on 
cassette with a disc transfer 


routine. Price is expected to be 
£59.95. 


Spreading 
the word 
worldwide 


WE are glad to report that 
Computing with the Amstrad is 
helping to spread the fame of 
the CPC464 worldwide. 

Already the magazine is 
helping to promote the machine 
as a teaching aid in Asian 
schools, and opening up new 
export markets for UK software 
suppliers. 

Hans E. Kawulusan has 
written from Indonesia to say 
how much he has enjoyed the 
first four issues of Computing 
with the Amstrad. 

His institute, Polytechnique 
Jakarta, is promoting Amstrad 
in schools in Indonesia and a 
sister company is negotiating 
for the rights to distribute the 
CPC464 throughout that coun- 
try. 

Now he wants all Amstrad 
hardware and software 
producers in the UK to contact 
him at 68 Panglima Polim 1, 
Jakarta 12160, Indonesia, if 
they are interested in distribut- 
ing their products in that 
country. 


Jack arrives 


ENGLISH Software has 
released its most popular title 
Jet-Boot Jack on cassette for 
the CPC464 priced £8.95, and 
says it “is the first of many 
titles” planned for the Amstrad. 
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FIRST ROM 
SOFTWARE 


FOR THE 
AMSTRAD 


ARNOR is claiming to be the 
first company to produce ROM 
software for the Amstrad. 

The first of several planned 
offerings is Maxam, a Z80 
assembler package which also 
includes a text editor and debug 
program. 

The 16k eprom plugs straight 
in but still allows room for the 
disc unit and has a socket for 
additional expansion. 

It enables the user to include 
machine code statements in a 
Basic program automatically 
assembled when the program 
runs. Alternatively the text 
editor can be used to enter 
assembler statements. 

It costs £59.90. 


Lightning 
strikes 


ANOTHER major national 
distributor has joined the 
Amstrad team. 

Lightning has been appoin- 
ted supplier of the CPC464 to 
the smaller independent 
retailers who are currently not 
serviced by main distributor 
Europa Electronics. 

Lightning's home computer 
director Loretta Cohen said: 
“Amstrad’s product has already 
proved itself in the marketplace 
and new software for it is 
arriving every day”. 


Sorcery ? It’s magic! 


THE latest version of Virgin 
Software's Sorcery arcade 
adventure aims to cast a spell 
over Amstrad owners. 

Based on an original idea by 
16-year-old Martin Wheeler, 
the Amstrad conversion was 
done by Dave Chapman who 
also played a big part in 


persuading Virgin’s managing 
director Nick Alexander that the 
Amstrad was worth program- 
ming for. 

Says Alexander: "| was 
totally wrong about prospects 
for the machine. Now I'm 
having to eat my hat’. 

Sorcery costs £8.95. 


aie 


Aaa, 
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‘UNIQUE’ 
HOBBIT 
FANTASY 
IS HERE 


CLASSIC adventure game The 
Hobbit is now available for the 
Amstrad from Melbourne 
House. 

The first computer game to 
combine complex text with 
atmospheric graphics, The 
Hobbit is based on the fantasy 
land described in Tolkien's 
famous books. 

The player takes the role of 
Bilbo the Hobbit whose task is 
to steal the dragon's treasure 
while faced with many dangers. 

Because of its unique 
features, each time the game is 
played events proceed in a 
slightly different way. The player 
can instruct the Amstrad in 
ordinary English and can talk to 
the other characters, answer 
questions they ask and suggest 
to them what they should do. 

Price is £14.95. 


Do your own 
head checking 


THE Azimuth 3000 head align- 
ment program from Interceptor 
Micros has been developed for 
the Amstrad. 

The kit makes it possible for 
users to align the azimuth 
setting on their cassette unit 
then regularly check and main- 
tain the setting to virtually 
eliminate loading problems. 

Price is £8.99. 


Amstrad picked 


MASTER spy James Bond is 
to be the subject of a 
computer game for the first 
time — and the Amstrad has 
been chosen for his debut. 
The latest 007 adventure, 
“A View to Kill’, is being 
developed for the Amstrad 
by Domark, which secured 
the worldwide licence rights 
against tough opposition 
from other leading interna- 
tional software houses. 
Details of the game are 
being kept a closely guarded 


for 007 
debut 


secret but Domark says the 
program will be centred on 
four arcade games linked to 
the major stunts in the film. 

Title music from Duran 
Duran will run through the 
game, scheduled for release 
along with the film in June. 
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“ons 


Fifth in MIKE BIBBY’s helpful guide 
through the micro programming jungle 


HERE is quite an assort- 
T ment of new ideas this 
month, which should 


greatly increase the scope of our 
programs. 

Firstly, if you cast your mind back 
to last month we saw that the INPUT 
statement enables the Amstrad to ask 
for information when a program is 
running. 

When the micro encounters a line 
such as: 


18 INPUT names 


it halts the program, puts a prompt 
(?) on the screen and waits for a 
response. 

You then type in what you wish 
name$ to be and press Enter. From 
then on the program continues with 
the new value of name§$. 

We also saw that it’s sensible to 
print a message on the screen before 
INPUT to indicate the kind of 
response required. 

Last month we used techniques 
such as: 


38 PRINT “How old are you"; 
48 INPUT age 


Actually we can incorporate such 
messages inside the INPUT state- 
ment, as in the following: 


18 INPUT “How old are you"; age 


Look carefully how it’s done: 
@ You insert the message bet- 
ween INPUT and the variable. 

@ The message is in quotes. 

@ There is a semi-colon between 
the quotes and the final variable. 
Using this technique, the program 


that asked someone's age — Program 
X last month — would become: 


18 REM PROGRAM I 
20 NODE 1 


30 INPUT "How old are you";age 
4@ PRINT "I don’t believe you are "ja 
ge 


Program | 


Last month’s multiplication pro- 
gram would become: 


18 REM PROGRAM I] 
2@ MODE 1 
38 INPUT "First number"; first 


4@ INPUT "Second nuaber";second 
S@ PRINT first " multiplied by " seco 
nd “ gives " first * second 


Program II 


And, of course, this idea of 
labelling INPUT works with string 
variables, as well. Last month's 
Program |X translates as: 


{@ REM PROGRAM IIT 
28 MODE 1 

36 INPUT "What is your name"; name$ 
4@ PRINT "Good to see you "sname$ 


Program II] 


Notice that we don’t have to 
include the question mark in our 
labels — INPUT automatically sup- 
plies one. 

Before we leave INPUT there's one 
other point I'd like you to consider — 
you can use INPUT to input more 
than one variable at a time. Program 
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IV shows the idea. 

When you run it, you'll be 
prompted for two numbers. Type your 
first number and press Enter. 

You'll be met with the message 
?Redo from start. This is because you 
haven't given the micro enough 
numbers to fill up the variables it's got 


{@ REX PROGRAM IV 
20 NODE 1 
38 INPUT "Two numbers"; first, second 


4@ PRINT first “ multiplied by " seco 
nd " gives " first * second 


Program IV 


in the INPUT statement. 

You have to give the number two 
values, separated by a comma, just as 
the variables in the INPUT statement 
are separated by a comma. 

Try doing that now. As you'll see 
from the output, the first number is 
stored in variable first and the second 
number in variable second. 

You don’t have to stick at just two 
variables, provided they're separated 
by commas, and the technique works 
just as well for string variables as 
numerics. 

Personally | dislike multiple vari- 
able INPUTs — they can lead to a lot of 
confusion on the user’s part. My rule 
is one INPUT statement, together 
with appropriate label or message for 
each variable. 

Incidentally the above ideas are 
why you should type in one thousand 
as 1000 and not 1,000 as we might 
write it. As far as an INPUT would be 
concerned, you're entering two sep- 
arate numbers when you use the 
comma. Try entering 1,234 into aline 
like: 


1@ INPUT number 


Computing with the Amstrad 


and see what happens! 

And now for something com- 
pletely different. You should remem- 
ber programs such as: 


1@ REM PROGRAN V 
20 MODE 1 


3@ PRINT "Hello" 
48 GOTO 38 


Program V 


This type of program, which 
endlessly repeats itself, is called an 
unconditional loop. To get out of it 
you'll have to press Escape twice. As 
we learned, such loops are not 
particularly useful things to have ina 
program. 

Even so, let's have a look at 
another way of obtaining an endless 
loop. 

Program VI shows the idea: 


1@ REN PROGRAM VI 
28 MODE { 


3@ WHILE t=1 
4@ PRINT "Hello" 
S@ WEND 


Program V/ 


Run it before you try to work out 
what's going on. As you'll see, Hello is 
repeatedly printed out. 

WHILE and WEND are two Basic 
keywords that act as “markers” 
around a section of a program that’s 
to be repeated. We call the lines of 
program that are to be repeated the 
body of the loop. 

WHILE marks the beginning of the 
body of the loop and WEND marks 
the end. 

Of course you can’t just have 
WHILE on its own. It would be a bit 
like saying, ‘I'll do it while’. People 


would want to know, “While what?”. 

When we use while in the ordinary 
sense we always give a time limit ora 
condition, such as: “I'll do it while 
you're away”. 

Similarly we have to give the micro 
a condition to go with WHILE. Hence 
line 30 reads: 


38 WHILE 1=1 


Here the condition is that we're 
going to do the loop while 7=7. 

Of course if | said to you: ‘'I’ll do it 
while one equals one”, apart from 
wondering at my sudden poetic turn 
of phrase, you'd understand what | 
was talking about. Since one always 
equals one, I'd be doing whatever it is 
forever. 

The same is true in Program VI. 
1=1 is always true — we say our 
condition is always met — so we keep 
on repeating the lines of the program 
between the WHILE and the WEND. 
In this case, that means repeatedly 
printing out Hello. 

WEND, by the way, stands for 
WHILE END, marking as it does the 
end of the effect of the WHILE. 


18 REM PROGRAM VII 
20 MODE 1 
3Q WHILE -1 


4Q PRINT "Hello" 
38 WEND 


Program VI/ 


Program VII is virtually identical to 
Program VI apart from line 30, which 
reads: 


30 WHILE -1 


In fact the output of the two 
programs is identical, and the two line 
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ES 


30s are in fact equivalent. To see 
why, enter: 


PRINT 151 


The result will be a —1 appearing 
on your screen. 

You see, micros are much happier 
with numbers, and —1 is the 
Amstrad’s code for true. So the 
Amstrad's equivalent of “one equals 
one is true” is: 

al Sui an 

So line 30 boils down to WH/LE 
true. Okay, it doesn’t tell us what's 
true, but to our trusting micro 
everything is true until we tell it 
otherwise. As line 40 doesn’t tell it 
otherwise, the loop repeats indefin- 
itely. 

If the above seems a bit confusing, 
don’t worry too much. Just take it for 
granted that lines of a program (or 
code as it’s known) surrounded by: 


WHILE ~t 
and 


WEND 


Ein 


will be repeated indefinitely. 

Incidentally, try the micro with a 
lie: 

PRINT 122 

The outcome should tell you that 
the Amstrad’s equivalent of false is O. 

Try replacing line 30 of Program 
VII with 


3@ WHILE @ 


Now you're asking for the WHILE 
. . . WEND to be repeated while it 
(whatever /t is) is false. As we've said, 
our ingenious Amstrad believes /t to 
be true, and we haven't told it 
otherwise. So /t isn't false, so the 
micro doesn't do the WHILE... . 
WEND loop. 

In fact since the program is so 
short nothing happens. If there were a 
line after the WEND, the program 
would carry on from there. (We call 
this dropping through the loop.) 

| dislike all this messing with —1 
and O. | much prefer words. So in 
larger programs where I'm going to 
be taking into account whether things 


are true or false, | tend to use two 
variables, true, which | set to —1, and 
false, which | set to O. Program VIII 
shows the idea. | think you'll agree 
that it's far more readable this way. 


1@ REM PROGRAM VITI 
20 MODE 1 
3@ true = -1 


40 WHILE true 
5@ PRINT “Hello” 
68 WEND 


Program VII/ 


Of course there are other condi- 
tions that can go with a WHILE. For 
example, here’s a WHILE... WEND 
loop to read a book: 


WHILE still another page 
read next page 
WEND 


Here our loop continues on the 
condition that there is still another 
page. 

Program IX uses a WHILE... 


** NEW ** 
ONLY £19.95 


8 BIT CENTRONICS INTERFACE 
Make use of that 8 bit printer. 
Plugs inbetween Centronics port 
and printer cable. 


FOR CPC464 INTERFACES 
RS-232 AND PARALLEL INTERFACES 


*RS-232* 


Communicate with your modem 
Talk to other computers 
Use serial printers 


Split baud rates 


Standard 25 way ‘D’ connector 


£45.95 


*PARALLEL* 
Make that robot move 


Run heating systems 


Twin 8 bit ports 


Operates direct from Basic 


Priceincl. VAT & P/P 


2 x 14 way speedbloc connector 


£25.95 


Both units cased and include through connector for interstacking or 
connection of further add-ons (disc drive etc.) 
Literature supplied and software on tape 


K.D.S. ELECTRONICS 


18 May 1985 


TEL (04853) 2076 
15 Hill Street, Hunstanton, Norfolk PE386 5BS 
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WEND loop with a condition. Lines 
40 and 50 are to be repeated while 
finish$ is not equal to YES. That's 
what the symbols <> mean — not 
equal to. 

Line 30 would translate WH/LE 
finish$ is not equal to YES. 

Each time you come to line 50 
you're asked to INPUT a string into 


18 REM PROGRAM IX 

26 MODE 1 

3@ WHILE finish$ <> "YES" 

40 PRINT "This is a WHILE...WEND loop 


5@ INPUT “Do you want to finish"; fin 
ish$ 

68 WEND 

70 PRINT "Then I quit!" 


Program IX 


finish$. \f you enter anything other 
than YES the loop will keep on 
repeating, since the condition for 
doing the loop (given in line 30) is met 
— finish$ is not YES. 

As soon as you respond with a YES 
to the prompt you've “violated” the 
loop’s terms, and the micro stops 
repeating the loop. It drops through 
the loop and continues with line 70. 

We'll see lots more of WHILE... 
WEND loops with conditions as this 
series progresses, but for the moment 
let’s turn our attention to Program X. 


1@ REM PROGRAM 
28 MODE 1 
3@ number = 0 


40 PRINT “number is "y number 


5@ newnumber = nuaber + 1 
68 PRINT “new number is "snewnumber 


Program X 


What happens is that we set the 
numeric variable number to zero, then 
print out its value (lines 30,40). 

We then add one to number and 
store it in another variable, new- 
number (line 50) and then print that 
variable’s value out (line 60). 

Let’s examine line 50 in detail: 


58 newnuaber = number + 1 


When the micro reaches this line it 
takes the value stored in number, 
adds one to it, and stores the result 
under the label newnumber. 

Notice that the micro does the sum 
that appears on the right of the = , 
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then stores the result in the variable 
on the left. 


18 REM PROGRAM XI 
20 MODE 1 
30 number = Q 


48 PRINT "number is “; number 
5@ number = number + 1 
68 PRINT “number is now "snuaber 


Program X/ 


Program XI is based on Program X. 
In fact it does much the same job, 
printing out zero, increasing it by one 
and then printing out the answer. This 
time, however, instead of using two 
variables, we make do with one, 
number. 

Can you see what's happening in 
line 50? Remember, we do what's on 
the right of the = , then store the 
result in the variable on the left. So 
when the micro encounters: 


58 nuaber = nuaber + {| 


it takes the value labelled by number, 
adds one to that value, then stores the 
result back in the variable number. In 
other words, line 50 increases the 
value of number by one. Had line 50 
read: 


5@ number = nuaber + 2 


The value stored in number would 
have been incremented by two. Try it! 

Let’s get something clear: math- 
ematically: 


Nuaber = nuaber + 1 


does not make sense. How can a 
number be equal to itself plus one? 
It’s like writing: 
Ssotl 

However we're not using the = as 
an equals sign. We are using it to 
signify assignment — that is, we're 
using it to pin a label, or variable, onto 
something. When we write: 


newnuaber = number + 1 


we are telling the computer to do the 
job on the right — that is, to add one to 
the value labelled by number -— then to 
label the result of that sum with the 
label on the left of =. 

The only reason that: 


nuaber = nuaber + 1 


might seem confusing is that we are 
labelling the result of the calculation 


Fret 


on the right with a label that’s already 
been mentioned in that calculation. 
That doesn’t worry the micro 
though. It’s used to re-using the same 
label. That's why they're called 
variables — they keep varying! 


10 REM PROGRAM XII 
20 MODE 1 
3@ number = @ 


48 WHILE -1 

5@ number = number + | 

68 PRINT “number is now “tnumber 
7@ WEND 


Program XI 


Have a look at Program XII. Line 
50 is identical to that of Program XI. 
That is, it increases the value of the 
variable number by one. 

However line 50 is part of a WHILE 
... WEND loop. Hence, no sooner has 
it incremented the number (line 50) 
than it is printed out again (line 60), 
incremented again (line 50), printed 
(line 60) and so on. 

The outcome is that line 60 prints 
out a steadily increasing sequence of 
numbers. 

Try altering line 50 of program XII 
so that the numbers go up in 2s, 4s 
and 10s. Could you, by altering lines 
30 and 50, get the program to start at 
1000 and count down in ones? 

We can actually get the program to 
stop at a given number by altering the 
condition in the WHILE statement. 
Try altering line 40 of Program XIl to : 


48 WHILE number <> 24 


This should give you the numbers 
1 to 24 on the screen. Leaving this 
altered line 40 in our micro, swap 
lines 50 and 60. That is, make line 50 
into line 60, and line 60 into line 50. 
The effect is that now we increment 
number after we've printed it out. 

Now run the program. The output 
should be noticeably different. Can 
you explain why? 

| should also point out that we 
don’t strictly need line 30 to make 
number zero. The Amstrad assumes 
numeric variables are zero until told 
otherwise. 

However it’s good programming 
practice to put this line in — a little 
superfluity can go along way towards 
improving program clarity. 

That's all for this month. Next 
month we'll have a look at some more 
loops. 
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POOLSWINNER | {  cvssszamsrean 


THE ULTIMATE POOLS PREDICTION PROGRAM 


@ MASSIVE DATABASE Poolswinner isa sophisticated Pools q : ‘ OVER 90 NOW 


prediction aid. It comes complete with the largest database 


aime TRANSFERRED TO DISC 
See just SCOREDRAWS, but AWAYS, HOMES aes ALL N Ow I N STOCK 


SUCCESSFUL SELEC guarantee that Poolswinner performs 
significantly better than chance. 

ADAPTABLE Probabilities are given on every fixture - 
choose as many selections as you need for your bet. The 
precise prediction formula can be set by the user — you can 


develop and test your own unique method. 7 rhe ah S oO FTWA R E for Cc P/M a 

SIMPLE ENTRY AllEnglish i ins n le! . . . 

Breer prea shy ioc Es Ln TaCSr os RT ota WSS SOT OEE TRENT M acro 80, M icrosoft Basic, M icrosoft 
to produce fixture list automatically (see below). F . . 
DISC/MICRODRIVE COMPATIBLE All versions (except Apple and IBM) are supplied Basic Compiler, other titles on request. 


on tape, with simple instructions for conversion to disc/microdrive operation. 
(This seasons results are supplied with the package so that predictions can start immediately.) 


AVAILABLE FOR S| (48K), Commodore 64, VIC 20 (+ 16K), AMSTRAD . 
CPC 464, BBC B, Atari (48K), ZXB1 (16K), Dragon, Apple Il, IBM pe, ELECTRON KUMA full range of latest titles 
PRICE £15.00 (all inclusive) including, Music Composer, Zen Database. 
AT LAST: No more struggling for hours to get the 
FIXGEN 84/5 Semeteino  corres, IXCEN tas Pen 
ae Serena tho tu Reteee tat Full Business Software range for £39 


fixtures for 1984/5. Simply type in the date, and the full fixture list is 
generated in seconds. Fully compatible with Poolswinner. 
POOLSWINNER 


Fixgen alone 5.50 (yearly updatenavailabl) @ TAPE TO DISC TRANSFERS @ 
11 COURSEWINNER V3 allow you to develop and test Mail order welcome, P&P free of charge 
THE PUNTERS your own unique winning 


COMPUTER PROGRAM system. Using information from Please send sae for full list to: 
daily newspapers or ‘Sporting Life’, the most important factors can be input and 
analysed. The program is supplied witha database detailing best trainers and 

| jockeys, and effect of the draw for all British courses. (Flat & National Hunt.) 


aeemmeee PRICE £15.00 (ail inclusive) Apple Il Ti MATI Cc SYST E M Ss LTD 


AVAILABLE (RETURN OF POST) FROM... 


L_—>—), |-> Registered Office: Sales and Repairs: 
Cc NEWGATE LANE FAREHAM MARKET 
———— FAREHAM, HANTS PO141AN FAREHAM, HANTS 


phone 24 hrs SOFTWARE Phone 24 hrs Tel: FAREHAM (0329) 239953 Tel: FAREHAM (0329) 236727 
37 COUNCILLOR LANE, CHEADLE, CHESHIRE. @ 061-428 7425 \ 


The start of a complete Expansion System... 


SIDESWAYS ROMS at last! Meet MAXAM — a new full-feature no-compromise 
No more loading .. . Assembler/Disassembler/Editor — with a difference. It's in 
Leaves 40K free! a very full 16K EPROM which plugs directly into the 


AMSTRAD. No waiting while it loads — it’s always there! 
You can still use the Disc unit. You also get, as a bonus, a 


The perfect system: 


* 
~ All-powerful Assembler new expansion socket for Arnor's new range of Sideways 
< Complete Disassembler ROM cartridges (containing, for example, our forthcoming 
: Full screen editor Word Processor). 
_ Multi-function Adaptor MAXAM uses no BASIC RAM space. It lets you mix 

Huge expansion potential BASIC and Machine Code — just like the BEEB! Or, you 

in one simple unit! can assemble direct from the Editor, and you can even use 
So easy to use and learn... the Editor to edit BASIC programs! 

MAXAM is ESSENTIAL software for the AMSTRAD Technical Data 


*Super-fast 3000 lines/min assembly *Condi- 
tional Assembly *Plain English error messages 
“Full Expression evaluation “Unrestricted label 
names “Directives include: ORG, BYTE, WORD, 
TEXT, RMEM, LET, IF, GET, PUT, LIMIT, CODE, 
NOCODE, READ. Commands include: LIST, NOLIST, 
LISTP, TITLE, PAGE, PLEN, WIDTH, DUMP. 

*Menu-driven Screen Editor includes move copy 
and delete block, tabs, search and replace, print 
all/part of text, Load/Save all/part of text. 
Disc/ROM version only: Register display, Memory 
Edit commands, breakpoint, string search in RAM. 


Link to AMSDOS. 
Software Houses: We have the perfect low-cost Technical Enqu. 01-852 2174 
system for software in ROM! Talk to us! 


Cheques/P.0.s to: Arnor Ltd, PO Box 619, London SE25 6JL. Order Hotline 01-653 1483 (2pm-6pm) 
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MEMORY HIMEM-10 
20 start=HIMEM+1 
30 !ASSEMBLE;start 
40 ‘get start 

50 ‘limit &FFFF 

60 ‘ORG start 

70 ‘CP 10:SCF:RET Z 
80 ‘RST 1,&B752 
90 ‘ORG &BD2B 
100'JP start 
110°END 


enthusiast. 
Cassette (reduced specification): £13.50 
Disc: £26.90. All prices include p&p. 


MAXAM in ROM £59. 90 


High Quality Software 


Easy way to 
keep your 
home finances 


in good order 


HOME Budget from Kumais 
designed to enable you to 
create and maintain annual 
files containing estimated 
monthly expenditure and 
income. 

The program is driven by 
two menus. The first gives you 
a choice between creating an 
initial file, or loading an 
existing file. Whichever option 
you choose you are presented 
with the second menu which 
has eight options. 

Selecting the first will 
display 12 categories of 
expenditure. These cover 
mortgage, rates, insurance, 
rental, heat/light, housekeep- 
ing, clothes, entertainment 
and others, which can be used 
or amended to suit individual 
requirements. 

This option will later display 
six categories of income. 
These are initially salary, 
expenses, fees, sales, tax 
rebate and sundries — though 
the headings can also be 


altered to suit the individual. 

The new file must be 
opened by entering the month 
and year of the starting date. 
The ending month should be 
11 months later, so for a file 
starting in June you enter 6 to 
start and 5 (May of the next 
year) as the ending month. 

A positive or negative 
number can be entered into 
the opening month as a carried 
forward figure. 

Enter the forecast figures as 
appropriate by using the on- 
screen options for moving 
forwards and backwards 
through the year. Once this is 
complete, a similar operation 
can be carried out on the 
income items if required. 

When all the information 
has been entered you are 
returned to the main menu 
from which the various display 
options can be selected to 
verify the contents. The infor- 
mation can be edited where 
necessary before finally saving 
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it to tape. 

A flashing screen prompt on 
the main menu indicates that a 
file created or amended has 
not been saved. When saving 
you may record, if you wish, 
the date and time but you 
must input a six figure security 
code and a file name. For 
obvious reasons these must be 
remembered when loading the 
file at a later date. 

Having saved the file you 
must go through a preset 
verify procedure. If a read error 
is encountered the data can be 
resaved by returning immedi- 
ately to the main program 
where the information will be 
found intact — a very useful 
touch. 

The files can be updated at 
monthly intervals using the 
“write to a file” option and 
entering information from your 
bank statement, cheque book 
stubs and so on — turning 
forecast into fact. 

After this option the pro- 


gram will display the new 
figures together with the 
forecasts which can then be 
changed if required. Any 
surplus between the forecast 
figures and the actual figures 
is held in a buffer for amending 
the following month. 

At six monthly intervals, or 
longer if desired, the file 
should be loaded and the 
“open subsequent file’ option 
called. After all, much of the 
present file will be past history, 
and you'll want your forecasts 
to cover more of the future 
months. 

A new month number 
should be entered which must 
be ahead of the month on the 


first file. 
The screen displays are 


superb, neatly laid out, and 
colour is used to great effect. 
All entries are well error-trap- 
ped and the menus enable you 
to toggle backwards and 
forwards between screens of 
information. The whole pack- 
age is extremely professional 
and easy to use in its 
presentation. 

My only criticism — a minor 
one — concerns the instruction 
card. The writer appears to 
have missed out the option to 
load a file and as a result each 
of the remaining options is one 
number out. This is a small 
error which | am sure will soon 
be corrected, and anyway the 
screen prompting is so good 
that the card is redundant after 
a first cursory glance. 

Alan McLachlan 


... and losing money without tears 
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I'VE always wanted to gamble 
recklessly and not be in the 
slightest danger of losing 
money, so when the oppor- 
tunity came to review Fruit 
Machine from Amsoft, | 
jumped at it. 

| have played several other 
versions on different machines 
and this one came out of the 
comparison reasonably 
unscathed although it did have 
its weak points. 

The screen format is what 
you would expect with the 
machine's main window 
taking up about half the 


available room. The remainder 
of the screen is used for 
passing information about 
your various options. 

The reels are set in motion 
by a press of the space bar and 
what immediately follows is 
the disappointing part. 

Instead of the winning 
symbols scrolling through 
each window, they are 
replaced by a roller shutter 
blind of coloured stripes. 
These just flash different 
colours until the time has 
come for the winning line to be 
displayed. A variety of the 


usual bells, grapes, plums and 
lemons — sorry fans, no 
cherries — are displayed on 
screen once the time is 
reached to show the winning 
line. These are interspersed 
with some € signs, stars, lucky 
7s and bars which all have 
their own values. 

As with the mechanical 
version, certain combinations 
pay more than others and the 
various winning combinations 
are listed on the cassette inlay. 

Surely it wouldn't have 
taken much more effort, time 
and space, to have included 
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these in a colourful on-screen, 
display, perhaps while the 
main program was loading. 

You start the game with £5 
and every spin of the machine 
costs you 10p. The display 
shows the amount the mach- 
ine has paid out in winnings 
and the amount you have 
inserted as two separate 
totals. 

Your game ends auto- 
matically after you have spent 
your fiver whether you are 
winning or not—your winnings 
consequently counting as your 
score for the game. 

A winning line presents you 
with the alternative of either a 
money prize or a number of 
nudges. 

There are several options 
available before or after each 
spin. The first is to hold certain 
reels, which is done by 
pressing the number key 
relating to the reel you wish to 
hold. 

The second is the ability to 
gamble a win — money or 
nudges —in the hope of gaining 
the next higher prize. 

The final special is the 
Winner Spinner. If you get one 
— and you can get several 
depending on the size of your 
normal cash win — you can opt 
fora spin instead of cash. 

Should you risk this you get 
another winning line along 
with its prize, This can 
sometimes be more, or some- 
times less than your original 


win. These Winner Spinners 
can also be gambled if you so 


desire. 
Although more could have 


been made of some of the 
ideas in this game, the same 
I'm pleased to say cannot be 
said for the sound effects. 
These are excellent. 

This particular version did 
not really appeal to me, as | 
like to gamble everything I've 
got including my winnings. 
Even so it is entertaining and 
should appeal to all ages, of 
whatever financial standing. 

Paul Murphy 


Faster than you 
think on court 


LOAD Centre Court, by 
Epicsoft, and you have three 
options — play the computer, 
another player or ‘‘watch 
Roland v Arnold in an enthral- 
ling match, demonstrating the 
capabilities of this game”. 

Seems sensible to have a 
look see, and you do. After five 
minutes you decide you've got 
the gist and look around for 
some way to get back to the 
main menu. 

Ten minutes later you 
decide there isn’t any way 
back apart from waiting for the 
end of the demo. And life’s 


really too short for that. 

So reload, and try playing 
the computer. Up comes the 
court again, complete with 
grass, scoreboard, spectators’ 
heads — yes, turning to follow 
the ball, linesmen and umpire. 
Quite neat. 

You can use joysticks or 
keys — numeric keyboard for 
one player, A, D,Z, C, W for the 
other in the two player option 
— and after sampling both | 
found the joystick came easier 
to hand. 

| was quite surprised to hit 
the ball first time. The com- 


puter served first, and helped 
no end by making a few 
mistakes itself. 

As the ball flies off you can 
see its shadow on the ground, 
an indispensible aid in judging 
the ball’s height from the 
ground. 

When a player wins a point 
the crowd cheers lustily, if a 
trifle harshly. They spent most 
of their time cheering my 
bloomers. 

Having played a couple of 
hours | found serving the 
hardest part. I'm glad the 
program didn’t make provision 
for top spin, slice and the rest 
of the stars’ repertoire. 

When you first see the 
game you think everything is 
moving far too slowly. Then 
you try it and find it is you who 
are lagging behind. Any faster 
and it would be impossible for 
me to play. 

I'm sure | would have had 
an even better game if 
someone had accepted my 
challenge. But even MacEnroe 
chickened out. 

Jed Glover 


Go for 
fame 


THERE can’t be many people 
who haven't dreamt of being 
rich and famous. Now there's a 


Minus originality, plus addiction 


ONE of the current ideas 
dominating software writers 
seems to be to think of the 
most unlikely objects to be 
cast as the villains. Perhaps 
readers might have been 
pursued already across com- 
puter screens by anything 
from telephones to toilets. 

Dragon's Gold, however, 
written by Roland Stokes 
(surely not the Roland?) and 
produced by Romik Software 
seems to have little to com- 
mend it as far as originality is 
concerned, 

There are six screens, each 
holding some static objects of 
danger, along with some 
well-programmed sprites. 

Each screen shares the 
same basic purpose, which is 
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to escape onto the next 
screen, but this cannot 
immediately be achieved. 

There is a time delay, 
dependent on the level selec- 
ted, before the exit route 
appears, and this time can be 
used in frantic evasion from 
the marauding pursuers or in 
gaining extra points and 
revenge with one’s laser. 

Screen 1 is easy to survive, 
being set in the front room, 
with dust being the moving 
enemy. Passing on to the 
bathroom, the showerheads 
produce dangerous floating 
bubbles which occasionally 
fragment and become even 
more tricky. 

The garden contains 
spiders with poisonous 


strands, although their move- 
ments are fairly predictable. 

The guard room has bright 
red robots which emit boun- 
cing rays. This screen is the 
first to feature a cavern, which 
requires a little skill to man- 
oeuvre. 

Finally we move on to the 
Dragon's Lair, with a mag- 
nificently designed multi- 
coloured dragon guarding a 
pile of gold. 

The successful player here 
will grab some gold and 
escape through the doorway 
and back to the first screen. 

The program contains some 
nice graphics, smooth action 
and fair use of the Amstrad’s 
sound facilities. It isn’t par- 
ticularly original, but it does 


seem to have that kind of 
addictive quality that becomes 
so annoying. 


Phil Tayler 
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chance in Software Star to 
try your hand in the cutthroat 
world of computer software 
marketing without any of the 
tisks associated with running 
your Own company. 

In this latest release from 
Addictive you have been 
employed as both chief games 
designer and company chair- 
man and must try to become a 
Software Star. 

This is achieved by getting 
your games into the top three 
best sellers. A number one hit 
will give you the biggest boost 
to your rating and if you don’t 
make it to this level for a few 
months the public will soon 
forget your name. 

You are given an initial 
target of 10 months of fame. 
As | soon found out this is not 
easy to achieve. Not only to do 
you have to make it to the top, 
you also have to meet the 
profit targets set by your 
directors. 

At the start of every month 
you have the option of 
launching a new game and if 
you decide to create a new 
masterpiece the computer will 
ask you for its name and will 
tell you what the press reviews 
had to say about it. 

At my first attempt | let my 
imagination run wild and 
typed in the name of my game, 
only to have it rejected 
because it was too long. 

Well | suppose Megaga- 
lactic Llamas at the Edge of 
Hyperspace was a bit over the 
top! 

After the game’s launch you 
have to make decisions about 
your employees, marketing 
strategy and sales drives. 

Maybe I'm too soft, 
because offering incentives to 
my staff actually reduced their 
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productivity and being honest 
in my advertising lowered the 
company’s reputation. 

At month’s end the charts 
are shown and the computer 
displays the progress of your 
games. 

After a few months a game 
will have exceeded its saleable 
life and keeping it on your 
books will cost you several 
thousand pounds a month so 
you would be well advised to 
drop it. 

The optimum level of 
advertising is higher in the 
winter than in the summer. 

If you book too much 
advertising, it will cost you 
dear without increasing your 
sales beyond a certain point. 
Getting the balance right is 
difficult, and despite having a 
best seller for several months 
the bank called in the receivers 
and closed my company. 

The game doesn't make 
great use of the excellent 
graphics or sound facilities of 
the Amstrad, nor does it offer 
the facility of a two player 
game. 

Despite these criticisms the 
program is fun to. play and 
makes a pleasant change from 
arcade games. One thing's for 
sure, I'll never make it as a top 
games designer. 

Steve Lucas 


second in Level 9’s Middle 
Earth trilogy and is yet another 
excellent adventure. 

The demon Lord Agaliarept 
(there must be an anagram in 
there somewhere) is ravaging 
the land. In desperation the 
King instructs the Wizards’ 
Guild to use their powers to 
defeat him. 

You, an apprentice 
magician, are summoned 
before the Wizards’ High 
Council. The High Wizard tells 
you of their plans to mount a 
magical assault on the Dark 
Tower, home of Agaliarept. 

He has also, however, 
decided to carry out an under- 
cover operation. You are to try 
to infiltrate the Dark Tower 
and kill the evil demon. 

Despite your protestations, 
you are hustled away to the 
nearest tele-portal and 
materialise on an all too 
familiar North/South road. 

You begin your quest by 
entering a nearby building to 
find several useful items. Don't 
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Adventure Quest ... 
American Football .. 
Amstradraw .. 
Astro Attack .. 
Amstrad Tutorial 
Atomsmasher 
Blagger .... 

Centre Court .. 
Chopper Squad 
Colossal Adventure . 
Country Cottages 
Crystal Theft .. 
Cubit .... 

Detective 

Dragon's Gold 


. Alligata 

. Epicsott 

. Interceptor 
.. Level 9 
Sterling 
Wiccasoft 
Mr Micro 
Argus Press 


Flight Path 737 . 
Football Manager 
Fruit Machine 
Fruity Frank .. 
Forest at World's En 
Galaxia 

Gems of Stradus . 


.. BES. 

Durrell 
.. BES. 
-. Kuma 
.. Kuma 
. Ocean 


Happy Letters . 
Harrier Attack 
Happy Writing 
Holdfast .. 
Home Budget 
Hunchback .. 


Map Rally .... Reese BAO 
Manic Miner . Software Projects 
Message from Andromeda Interceptor 
Mr Wong's Loopy Laundry Artic Computing 
Mutant Monty . Artic Computing 


Number Painter . ASK 
Osprey ... BES. 
.- Mr Miero 
.. Microgen 

- Amsoft 


Punchy .. 

Pyjamarama ... 

Roland in the Caves . 
Roland Goes Square Bashing 
Rollaball 

Royal Quest . 
Screen Designer 
Snooker .. 

Snooker .. 

Snowball ... 
Software Star . 
Survivor .... 

Star Avenger .. 
Test Match 

The Moors Challenge 
Timeman One 
Timeman Two .... 
Trial of Arnold Blackwood ... 
Wordhand .. 
Wordwise ... BES. 
Xanagrams . .... Postern 
280 Assembler, Disassembler and 


... Nemesis 
.. BES. 


dismiss any of them, you'll 
need them all. 

A careful search of the 
locale will doubtless have you 
lost in the forest. Yes, it is a 
maze! And yes, you can, in fact 
better had, map it. You might 
have a bit of difficulty with the 
wolves however. 

The orchid should not prove 
to be too much of a problem 
and you will find you have 
more than one leg to stand on. 

If you can please the 
unicorn you will detect the 
sweet smell of success. 

Then it is off to the desert 
and your first major problem — 
a sandworm. | doubt if you'll 
get much ofa look at it though. 

A quick bit of mapping 
should find you, hotly pursued, 
running past the pyramid. You 
know what they say about 
setting a... ! 

The snakes all came out ofa 
basket and once you have got 
into the rhythm you will find 
the temple priestess is glad to 
see you. 

After a quick look around 
you'll soon be wondering what 
to do with the oil — gotta lotta 
bottle — but not yet! 

The djinn is just a big bag of 
wind so ignore him for the 
moment. Ali Baba will crop up 
soon, and then it is back to the 
temple by way of the well for 
your reward. 

Then we go up the bend and 
Goliath has definitely learnt his 
lesson. You'll soon meet 
another friend — he doesn't like 
orcs since they put him on the 
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chain-gang. 

The orcs get stoned and you 
will need to throw yourself into 
the next problem. Now you 
can get Aladdin's lamp, so on 
to the Snowman’s abode for 
the next stage of your quest. 

Let's hope that if you get 
dropped in it you can drop 
back out of it. I'll let you figure 
out how to get two lungs — or 
is it get lungs twice? 

As you can see from this 
small part of the adventure | 
have described, this is one of 
phenomenal proportions. 

It is full of witticisms, bad 
puns, devilishly twisting 
puzzles and saturated with 
atmosphere. 

A brilliant adventure that 
confirms Level 9's place as the 
ultimate adventure software 
house. 

Paul Gardner 


Pictures 
from 
stock 


DJL's Screen Designer con- 
sists of a cassette and 21 
pages of notes explaining the 
many functions available. This 
excellent utility will allow you 
to create impressive pictures 
which can be stored on disc or 
tape. 

The program is menu 
driven, allowing you to edit 
a picture, change mode, 
redefine the colours, save or 
load a screen and save or load 
graphics characters. 

Taking the edit option first 
there are two modes of 
operation — pixel mode and 
text mode. In pixel mode there 
are 16 different functions. As 
you would expect there are the 
usual facilities for plotting 
points, drawing lines and 
circles, filling areas, changing 
pens, paper and border col- 
ours. 

There are also some ad- 
vanced features not usually 
found, such as the ability to 
magnify any portion of the 
screen by either a factor of 4 or 
16 for highly detailed work on 
small sections. When work is 
completed the section can be 
reduced to normal size and the 
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rest of the screen restored. 

The screen can be pixel 
scrolled in any direction ena- 
bling an object to be drawn 
first and positioned later. 

Two lines are taken up by 
an information window. This is 
used to show the pen, paper 
and function selected. 

Moving into this area with 
the cursor causes it to move 
out of the way. If it was at the 
top of the screen it moves to 
the bottom and vice-versa, 
allowing you to draw under- 
neath it. Delete makes it 
disappear altogether so you 
can view your masterpiece in 
all its glory. 

Selecting text mode gives 
you another 15 functions 
enabling you to print in normal 
and transparent mode at any 
pixel. 

All the keyboard characters 
are available plus a few of the 
graphics characters, and any 
section of the screen can be 
defined as a multi-coloured 
graphic character and printed 
at any position. 

Going back to the menu 
(which incidentally doesn’t 
lose you your picture — there is 
a copy in the memory some- 
where) the second option 
allows you to select mode O, 1 
or 2, so you can select the 
resolution you require and the 
number of colours available. 

The third option enables 
you to redefine any of the 
colours. The number depends 
upon the mode and these are 
selected from the full 27 
possible on the CPC 464. 

The last two options allow 
you to load and save either the 
whole screen, or just the 
graphics characters. 

The screen and graphics 
can be loaded back whether 
the screen designer is there or 
not, so it is possible to design 
the graphics or the screen for 
your own program and load it 
to any spare section of 
memory. 

To restore a picture either 
select edit mode if you are 
using the designer, or call the 
address it was loaded to if it is 
not present. 

DJL's Screen Designer is a 
superb piece of software with 
excellent documentation and 
every function you could 
possibly wish for. | can highly 
recommend it. 


Roland Waddilove 


Wobbles 


LORD Erebus has hired you in 
The Trial of Arnold 
Blackwood (Independent 
Software) to recover his gold 
amulet and also rid the 
grounds of his manor of 
dangerous flora and fauna. 

Almost all commands are 
just simple three letter VERB 
NOUN so, having found a 
flashlight, | spent over an hour 
trying to get some light in the 
house. 

My mistake was thinking 
Arnold wore only a raincoat 
and wellies so FLASH ON 
would probably cause Lady 
Erebus to swoon or throw 
something. 

Having seen the light | then 
had trouble getting rid of the 
corpse of the rabid dog — 
surely the best thing would be 
to cremate it along with the 
triffid? 

Having finally laid Bonzo to 
rest, put the coal in the bunker 
and dumped almost every- 
thing else on cue at the feet of 


Lord Erebus | was let out with 
a warning that there are two 
more adventures to solve. 

The game has about 100 
rooms, but 50 are empty, and 
the Save could dry paint. 

At times Arnold says he is 
“thinking” or “sorting data” 
and responses are slow — it 
must be in Basic. 

The most irritating thing is 
that whenever you want to 
DROP an object (and therefore 
first take an Inventory) you 
always have to press (any) key 
to restart — | was continually 
trying to ROP things. 

The game would totally 
baffle an American with its 
peculiar sense of humour. Is 
the Venusian piano being 
played backwards? 

Albert Fibby 


Get up early 
to be a painter 


ONCE I'd loaded Number 
Painter from Ask Software, | 
let my nine-year-old daughter 
get at it before me. She was 
still there at the keyboard 
some two hours later at 
bedtime, asking for just one 
more try. 

Then my eldest daughter, 
aged 17, and her boy friend 
took over and my chances 
were gone until the next day. 
Even then | had to get in quick 
before my nine-year-old got 
there before me (actually I'd 
hidden it). 

The program is educational 
and in two parts, the first of 
which is an arcade game. 

The second is a self test 
option in mental arithmetic 
against the clock. 

The main program is a 


levels and ladders game aimed 
at the five to 14 age bracket. 
The hero is a painter, 
beautifully animated, who has 


to paint numbers to match a 
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displayed target figure. 

This target figure is selec- 
table at the start of the game 
as a difficulty level. 

Numbers from 1 to 9 are 
displayed on screen preceded 
by a +,—,x, or + sign (the x 
and + are highlighted in a 
different colour). 

The Space bar must be 
pressed when the painter is 
over the particular number 
that you wish to paint and take 
into account towards the total. 

Our hero has four incarna- 
tions called Mr Plod, Mr 
Walker, Mr Swift, and Mr 
Speedy and selecting one sets 
another level of difficulty in the 
speed at which he moves 
around the screen. It is an 
extreme test to achieve suc- 
cess on the higher levels. 

Each level is time controlled 
as a bucket gradually rises 
from the bottom of the screen. 
Once at the top it spills paint 
all over the screen and our 
hero has failed. 

There is also the occasional 
gap in a platform, and falling 
through one of these results in 
a temporary stunning of our 
friend as time slowly runs out. 

Success with two or three 
painters will result in a change 
of scenery as you go up a level, 
but success with one only will 
result in his remaining on the 
same screen. 

The graphics are quite 
exceptional with smooth 
animation, and good use is 
made of sound. They keys are 
easy to use and the game 
supports joysticks. 

The multi-level self-test 
option is also entertaining and 
is designed as either a monitor 
of your progress after playing 
the game, or a practice mode 
before playing it. 

The same little animated 
character nods or shakes his 
head according to your answer 
to a series of problems, which 
may range from a simple sum 
on level 1 to a more complex 
one on level 12. 

Both programs uphold the 
Ask tradition of high quality 
educational software. If you 
buy the package your child will 
certainly gain a better under- 
standing of numbers. 

But if you want to have a go 
on it yourself you had better be 
prepared for a long wait, or get 
up early in the morning. 
Alison Hughes 
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Where the 
cookie crumbled 


ANTICIPATION is sometimes 
the better part of adventuring 
and nowadays | read instruc- 
tions before | play. A cassette 
inlay plus a booklet explained 
all about the Vegan War and 
that | was to play a simulation 
of one of “our side’s” major 
successes. 

Slightly disappointed that | 
was not doing the real thing, 
but nevertheless all agog, | 
plunged in. 

“| have landed”, said the 
screen. Not only a reconstruc- 
tion, but it’s not even me doing 
it! 

Crystal Theft from Wicca- 
Soft is a ‘‘Find the temple 
and steal the crystal” text-only 
adventure. Non-colour owners 
are not missing much as the 
display is green. 

But it is nicely laid out, with 
four windows giving location 
description, inventory, mess- 
ages from him and sugges- 
tions from you. 

You start armed with a 
sonic pistol and — hands up 
anyone who knows what a 
katana is? 

| usually just amble around 
on my first go, getting the feel. 
Idly trying the Store com- 


mand, | found I'd earned 110 
points — heaven knows how. 

A Time command tells you 
how long you've been atit and, 
although there's no time limit 
to the total game some 
problems do have a time 
factor. 

You move N, S, Eor W, with 
the occasional Up and Down, 
and there's a Save and Restore 
at certain points. Examine is 
given for free and so far has 
revealed a mountain of useless 
information. But there’s a few 
nuggets in them thar hills. 

Promises to understand 
commands like “‘Go South 
then take the key and climb 
the rope” a la Hobbit seem to 
be rashly made. 

Descriptions are nicely 
atmospheric and | looked 
forward to a more serious 
attempt. And that’s where the 
cookie crumbled. Exits are not 
shown so movement is by trial 
and “you can’t go thataway”’. 

Unhelpfully, your command 
is erased as the answer 
appears. Provoke a “Pardon” 
and it won't even’ understand 
Score or N for several goes. 

If the location says ‘‘stan- 
ding outside a door’, you 


INVASION IN SLOW 


NOW here’s an original story 
line. Earth has been invaded by 
aliens and you, Captain 
Macho, are the only person 
who can save humanity. 

By assembling nine fighter 
aircraft from their component 
parts you can repel the alien 
invaders. Such a tedious 
theme can often be the basis 
of a stunning arcade game. 
However in this case | would 
be quite willing to hang up my 
joystick and surrender. 

In Chopper Squad, from 
Interceptor Software, you are 
the pilot of a rocket helicopter, 
that’s the red smudge in the 
middle of the screen. Also on 
the screen are three horizontal 
lines. They are the helicopter 
landing pads onto which will 
fall jet fighter parts. But 


where the parts are falling 
from | don’t know. Maybe 
someone up there doesn't like 
aliens either. 

Painfully slowly you fly your 
helicopter around the screen 
and pick up one of the 
components. 

You then move back to the 
bottom of the screen and fly 
through the bottom right hand 
corner. At this point the jet part 
vanishes and reappears in the 
score window at the top of the 
screen. 

As each component is 
successfully retrieved the 
fighter is constructed. 

While you are merrily 
employed in the aircraft con- 
struction business a swarm of 
blue flying saucers drift aim- 
lessly around the screen. On 


should not be told there isn't 
one there when you say 
Examine Door. 

And | might just accept that 
West or South takes you to the 
same place, but West taking 
you four locations North stret- 
ches my goodwill. The 
author's either a genius or 
doesn't know his ay from his 
ee. 

Some problems rely too 
much upon luck, and pre-tes- 
ting by someone who did not 
know the solutions would 
have revealed the pitfalls and 
the awful Pardon bug. 

But even so | enjoyed 
playing and think, with a little 
more effort, this author has a 
future. 

Oh, that katana is a 
Japanese sword — Quincy's 
body was killed by one. 

Dorene Cox 


MOTION 


early levels they present no 
challenge, as they are easily 
despatched with one blast of 
your laser cannon. 

Having built your first plane 
the screen clears and the flying 
saucers are replaced by red 
fruit gums. These, too, provide 
very little opposition. 

On the third screen how- 
ever the red hot dogs decide to 
turn nasty and follow your 
every move relentlessly. These 
McDonald's Specials take a 
great deal of shaking off when 
your top speed is almost in 
excess of five miles per hour. 

Should you be looking for a 
game that might just test your 
granny’s reflexes to the full 
then this is just what you were 
looking for. 

James Riddell 
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some more 
registers 


In Part V of his introduction to Machine Code MIKE BIBBY 


reveals the secrets of the remaining Z80 registers 


O far in this series we've 
concentrated on the A 
register, a single byte 


internal memory location within 
the Z80 processor itself. How- 
ever, | have hinted darkly that 
there are other registers avail- 
able, and we'll be looking at some 
of them this month. 

The registers we're interested in 
are the B, C, D, E, H and L registers. 
Each of these, like the A register, can 
store a single byte. 

There are other registers, such as 
the F register, but for the moment 
we'll just concentrate on the half 
dozen I've listed. 

(Incidentally, there are no G, |, J or 
K registers.) 

Since they are single byte, or eight 
bit registers, we can load them 
directly with a number in the range O 
to 255, just as we did register A. 

That is, commands such as: 


LD B,&2A 
and 
LD H,&BC 
exist. 
We can represent this type of 


operation, where we load a register 
with a byte, symbolically as: 


LD ryn 


where: LD stands for LoaD. 

r stands for one of the registers A, B, 
(fo), 18: tab Alt, 

n stands for a number in the range O 
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to 255. We refer to such numbers as 
constants. 
Table | shows the opcodes for each 
of these register loads, including LD 
A,n which we're already familiar with. 
From Table | you can see that: 


LD B,&2A 
would translate into: 

5 2A 
whereas: 

LD H,&8C 
would give: 

26 OC 


Right, so we now know how we 
can load the various registers with 
numbers — but why would we want to 
do so? 

Well, you'll know from your 
programming in Basic how valuable 
variables are for keeping track of 
things. In machine code we haven't 
got that luxury. However, we can use 
the registers as rudimentary vari- 
ables. 

Even though each single register 
can only hold a number in the range O 


Table 1; LD 
rn opcodes 


to 255, you can still achieve some 
powerful results. After all, even Basic 
was written in machine code! 

As an example of the sort of thing | 
mean, let's locate the text cursor at a 
given column and row on the screen 
and then print an asterisk there. 

Fortunately there’s a firmware 
routine that allows us to do just that— 
it's located at &BB75. I’m going to 
call it PosTCur, short for Position Text 
Cursor. 

To use it, we load the H register 
with the column we want and the L 
register with the row we want. We 
then call PosTCur. 

Having positioned our cursor, we 
still have to print the asterisk. To do 
this we simply load the A register with 
the Ascii code for asterisk (&2A) then 
call our CharOut routine at &BB5A to 
print it out. 

While we're christening routines, 
let's call the routine at &BB6C — 
which clears the text screen — ClrText. 
We use it in the program below 
before positioning our cursor, printing 
the asterisk and then returning to 
Basic. 


address hex code anemonics 
3688 ©=©6CD 6C BB CALL CirText 
3883 26 14 LD H,&l4 
3885 =. 2E «@C LD L,&@C 


3887 «CD 75 BB CALL PosTCur 


388A =. SE 2A LD A, &2A 
3aa@C = CD« SA BB CALL CharQut 
3BRF C9. RET 
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In this program the H and L 
registers have clearly been used as 
variables to specify where we want 
our text cursor positioning. Try 
altering the values you give H and Lto 
place the cursor in different positions 
on the screen. 

Of course, as I've said, we can 
likewise load the other registers with 
numbers in the range O to 255. The 
simplest way to demonstrate this 
would be to load the register in 
question with a number and then to 
poke it into Hexer’s ‘workspace’ 
(&2FF8 — &2FFF), where we could 
examine it at leisure. 

As you'll recall from last month, 
this works well enough for the A 
register: 


LD Ayn 
LD (k2FF8), A 


RET 


Here you load A with the number 
you require (shown here as n — an 
eight bit number) and then load 
memory location &2FF8 with the 
contents of A. In effect, you're poking 
the A register’s contents into &2FF8. 

You'd then look at &2FF8 to see 
that it really does contain what you'd 
loaded A with. 

Unfortunately, this doesn’t work 
with the other registers, because you 
can't poke into memory with a 
register other than the A register. So: 


LD Byn 
LD (&2FF8) ,B 


RET 


fails because there is no such 
instruction as: 


LD (&2FF8) ,B 
More formally, 
LD (pq) ,r 


does not exist except where ris the A 
register. Here pq refers to a two byte, 
16 bit number. Remember, we're 
specifying a memory address inside 
those brackets, so we need two bytes. 

Similarly, you can’t peek with 
registers other than A, so: 


LD B, (&2FF8) 
is also illegal. More formally, 
LD A, (pq) 


is the only peek allowed. 

What we can do, though, is to 
adopt a roundabout approach, load- 
ing the number into the register under 
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examination, then loading the A 
register with the contents of that 
register and poking the A register into 
memory. 

The code would be something like: 


LD B,n 
LD A,B 


LD (&2FFR) ,A 
RET 


It relies on a new instruction: 
LD A,B 


This allows us to load register A 
with the contents of register B. In 
fact, this is just one of a whole set of 
opcodes that allow us to transfer the 
contents of one register to another. 
We describe this class of opcodes as: 


LD ryr’ 


where both r and r’ are any of the 
registers A, B, C, D, E, H, L; 

Table Il shows the opcodes — there 
are quite a few! 

When you're using Table II, 
remember that, as it’s set out, the first 
register (r) specifies the row and the 
second register (r’) gives the column 
it’s in. Hence the opcode for LD B,C is 
41. 

You'll probably have noticed a 
pattern. If not, it might help you to see 
it if | tell you that there’s both a row 
and a column missing between the L 
and A registers. We'll see what that 
means later. 

You'll see such a pattern in many 
of our opcodes — it helps the Z80 to 
work out what the opcode’s telling it 
to do. 

By the way, LD r,r’ copies the 
contents of r’ into r. In doing so, it 
doesn't alter the value in r’, so when 
the micro’s finished the opcode, both 
r andr’ will have the same value. 

To demonstrate some of these 
opcodes in action, we can play a 
game of ‘Chinese Whispers” with our 
registers. Let's load H with &2A, then 


ae 
a frm oe baa rep 0 


Table //: Opcodes for LD r,r’ 


pass it on from register to register 
until we reach the A register, when 
we'll print it out with CharOut. 


address hex code aneonics 
3008 LD H,&2A 
3082 LD L,H 
3883 LD E,L 
3004 LD D,E 


3805 LD C,D 

3086 LD B,C 

3007 LD A,B 

3888 = CD SA BB CALL CharQut 
300809 RET 


So far we've learned to do quite a 
bit with our registers: we can load 
them directly with numbers, and we 
can copy numbers from one register 
to another. 

There are other operations we can 
perform on the registers. For 
instance, we can INC and DEC them. 
INC Aas you'll recall from last month, 
increases the value of the A register 
by one. DEC A decreases its value by 
one. 


INC r 
and 


DEC r 


where r is any of registers B, C, D, E, 
H, L, have similar effects on the 
specified register. 

Table III contains the opcodes you 
need for INCrementing and DECre- 
menting our eight bit registers. As we 
found out last month, none of them 
affect the carry flag. 

To illustrate their use, we can 
incorporate them into our previous 
code, to place not one but two 
asterisks on the screen, the second 
directly below the first. 

Since Lcontains the row you might 
think that the way to do it would be to 
run our code as normal up to printing 
the first asterisk, then INC L, to give 
us the row below (think!), call 


Table Ill: INC r and 
DEC r opcodes 
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PosTCur again, then print another 
asterisk, as in: 


CALL CirText 
LD H,&12 
LD L&C 
CALL PosTCur 
LD A,&2A 


CALL Char Out 
INC L 

CALL PosTCur 
CALL CharQut 
RET 


Unfortunately this won't work, as 
calling PosTCur actually changes the 
values that the H, L, A registers 
contain. This isn’t surprising since 
PosTCur is just another machine code 
routine and will need ‘variables’ 
itself. 

It's inconvenient for us, though. It 
would be nice if L still had the same 
value so we could just INC it to get 
the cursor on the next row when we 
call PosTCur. 

Nor can we guarantee that H still 
contains the correct column or that 
the second call to CharOut will print 
an asterisk — the value in A will have 
changed. 

When a machine code routine 
changes registers, we say it corrupts 
the registers. When a routine leaves 
the registers intact we say it 
preserves the registers. 

If you find your machine code 
programs going wrong for no obvious 
reason, check to see if you're wrongly 
assuming that some of your CALLs to 
other subroutines are preserving the 
registers. 

In practice you'll tend to find some 
registers preserved and some not. 
The two routines we've relied on 
most heavily, CharOut and CharlIn, 
preserve all the registers, fortunately. 

Even PosTCur leaves some regis- 
ters unchanged — the B, C, D, E 
registers. We can take advantage of 
this by transferring our ‘sensitive’ 
register values (A, H, L) into these 
unchanged registers for safe keeping, 
transferring them back when we need 
them. 

By using these ideas, we can 
successfully recode our previous 
routine to allow us to place two 
asterisks on the screen, one directly 
below the other. 

We've used B to store H, C to store 
L and D to store A. Later we'll 
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address hex code anemonics 
3888 = CD OC BB CALL CirText 
3883-26 12 LD H,&12 
3885 44 LD B,H 

3086 = .2E AC LD L,&@C 
3egg8 = 4D LD C,L 

3889 = CD 75 BB CALL PosTCur 
388C LD A,&2A 


SAGE LD D,A 
3BBF CALL CharOut 
3812 LD H,B 
3813 LDL,C 
3014 INC L 
3815 CD 75 BB CALL PosTCur 


3818 7A LD A,D 
3019 = CD SA BB CALL CharOut 
3aic 09 RET 


discover easier ways of getting round 
the problems of corrupt registers. As 
it is, the above example certainly 
illustrates operations with our eight 
bit registers. 

By working out what's happening 
you'll definitely master the ideas. 
Why not try printing out a column of 
three asterisks? B, C, D will still be 
preserved, remember. 

Last month we saw that we could 
add and subtract numbers from the A 
register. You might be tempted to 
think that since we could INC and 
DEC the other registers we could 
ADD and SUB them also. Unfor- 
tunately not: 


ADD B,8 
and 
SUB C,4 


do not exist! 

You can, however, ADD the 
contents of a register to the A 
register. 

Similarly you can SUB the 
contents of a register from the A 
register. 

In both cases, the answer is left in 
the A register. 

Formally, 


ADD A,r 
and 
SUB r 
exist, where ris any register of B, C, D, 
Brae As 
Notice, by the way, that when 
you're adding, you have to specify A 


followed by the register you're adding 
to it. When you're subtracting you 


Table 1V: ADD A,r 
and SUB r opcodes 


only need to specify the register 
you're subtracting — the micro 
automatically knows you're taking it 
from the A register. 

Incidentally, the way the answers 
end up, or accumulate, in the A 
register explains its alternative name; 
the accumulator. And, of course, 
since the answers do end up in the A 
register, they're handy for poking into 
memory. (Remember we do our eight 
bit pokes into memory via the A 
register.) 

The opcodes for ADD and SUB are 
given in Table IV. You'll need them to 
do the following sums, Problems | to 
Ill. Don’t try them before you've read 
the whole of the article, though, as in 
a moment |'ll give you what my maths 
teacher used to call a worked 
example. 

The answers to each of the sumsis 
sorted in &2FF8, so you can examine 
them easily with option 2 of Hexer. 
You should be able to follow what's 
happening without too much trouble. 

Remember, if you add 1 to & FF the 
answer is O when you're dealing with 
eight bit numbers. Similarly, if you 
take 1 from O, the answer is &FF. As 


Computing with the Amstrad 


Problem I 


LD B,4at 
LD A, &@1 
ADD A,B 
LD (&2FFB) JA 
RET 


Problew 11 


LD Cyd 
LD A,&F 

SUB C 

LD (K2FF8) ,A 
RET 


Problea IIT 


LD D,&FF 
LD A,&2 
ADD A,D 
LD (X2FFB) ,A 
RET 


we saw last month, the numbers 
cycle round. 

Notice that | haven't spelt out the 
actual hex opcodes for you — you'll 
have to do that yourself. This is called 
hand assembling the code. Tables | to 
V give all the opcodes you need, Table 
V being a resumé of the codes we met 
last month. 

A few hints on hand assembling 
might be useful here: 

@ Write out your code on paper 
before entering it into Hexer. 

@ Make sure you're dealing with hex 
numbers — any decimal numbers will 
have to be translated. 

@ Check that the code ends with the 
opcode for RET, &C9. 

@ Be careful with your writing — it's 
all too easy to confuse 8 with B, 2 
with 7, and E with F. 

@ Make certain that you write 
addresses in lo byte, hi byte form. 
That is, &2FF8 becomes F8 followed 
by 2F in a machine code program. 
@ Double check the code before you 
run it! 

Now for the worked example. 


Table V: 


PE IEEAEDE A ditional 
LD (pq) sA | 32a | opcodes 
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When a machine code 
routine changes registers, 
we say it corrupts the 
registers. When a routine 
leaves them intact we say 


Suppose you had to hand assemble: 


LD A,8 
SUB A 


LD (&2FF8) ,A 
RET 


Firstly you'd decide where you 
were putting it in memory. Since 
we're using Hexer, we tend to put 
everything at &3000. 

Look at the first instruction: 


LD A,8 


we can see that it’s of the LD A,n type. 
As Table | shows us, the opcode for 
this is 3E, followed by the number we 
want loading in. In this case it’s 8, and 
there are no translation problems 
since it's the same in hex and decimal. 
So the first line translates as: 


3E a8 
The next line for us to code is: 


SUB A 


This is a rather interesting piece of 
code, since it subtracts the A register 
from the A register! | think you can 
guess the result... 

From Table IV, you can see that the 
code for this is 97, so we can add this 
to our string of bytes in memory to 
give: 


3E @8 97 
The next instruction, 


LD (&2FF8) ,A 


is the poke type instruction we saw 
last month. Its opcode is 32. The trick 
is to make sure we follow it with the 
address we want to poke into split 
into lo byte, hi byte order. Given this, 
our code becomes: 


3E 08 97 32 FB 2F 


it preserves the registers. 


All that remains now is to translate 
the last instruction, 


RET 


The opcode for RET is C9 — you 
should really know this by heart now. 
Our code now becomes: 


SE O8 97 32 FB 2F C9 


which, once we've done all our 
checks, we can enter via Hexer. 

| tend to use a slight variation on 
this technique, writing the code for 
each instruction on a separate line. | 
also label each line with the memory 
location that the first byte (the 
opcode) of that line is stored in. Doing 
things this way makes it easier to 
compare the code with the original 
mnemonics. 

Also, knowing the starting address 
of each instruction will be handy later 
on when we do more with jumps and 
so on. 

Doing things this way, the above 
code would be: 


32 F8 2F 
C? 


That's all for this month. You may 
have noticed that, apart from speci- 
fying addresses, the numbers we've 
been dealing with have all been one 
byte long. 

Next month we'll have a look at 
pairing up the registers to allow us to 
handle two byte numbers. 

A final tip: You might find it useful 
to copy the tables of opcodes onto 
card for easy reference — that’s what / 
do. 
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N the last article we 
looked at the AND and OR 
operations on binary 


numbers — logical operations, as 
they are known. These were 
simply rules for combining num- 
bers bit by bit. We shall continue 
our exploration this month with a 
look at the EOR operation. 

EOR stands for Exclusive OR — 
sometimes people call it XOR. Either 
way it’s the same thing. EOR is a 
variant on the way we normally use 
the term OR. 

For example, if | say: 

Mike OR Pete wears glasses 
this is true if Mike wears glasses, OR 
Pete wears glasses, OR both Mike 
and Pete wear glasses. 

Now it's this last case of OR we're 
interested in, where they both wear 
glasses. EOR works just like OR up to 
this point. However, EOR does not 
“allow” both of them to wear glasses. 


Wears glasses 
Hike Pete 
8 8 


) 1 
! 8 
1 1 


Table | 
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neither wears glasses 
Pete wears glasses 
Nike wears glasses 
Both wear glasses 


EOR-A way to find out 


who’s telling the 


Either one does, or the other, but not 
both. 

To put it another way, the one who 
wears the glasses does so exclusively. 

If both are wearing glasses then 
while: 

Mike OR Pete wears glasses 
would be true, 

Mike EOR Pete wears glasses 
would be a downright lie! 

We could signify that a statement 
is true with the letter T, and use F for 
false. At school our teachers used 
ticks for truth and crosses for false. 
Since we're using computers, though, 
we'll use numbers: 1 will denote true 
and 0 will denote false. We've chosen 
1 and O because they fit in so well 
with the binary system. 

So, in the above example, if Mike 
has glasses we can give Mike the 
value 1. If Pete hasn't glasses we can 
give Pete the value O. Table | shows 
the idea, applied to each combination 


Nike wears 
glasses 
8 


Table // 


Exclusive truth 


MIKE BIBBY continues his 
series on the fundamental 
workings of the CPC464 


of spectacle user. The ones and zeros 
are known as truth values, states or 
conditions. 

As you can see, there are four 
possible cases as far as Mike and Pete 
wearing glasses are concerned: 
neither can wear them as in case 1, 
where both Mike and Pete has O 
value. Then again, Pete may wear 
them (1) whereas Mike does not (0), 
case 2, and so on. 

If you look carefully at the numbers 
involved in all four cases, you see that 
we've got four pairs of bits we can 
combine. Each pair of bits is made up 
of the ‘‘truth bit’ for Mike and the 
“truth bit’ for Pete. 

What I've done in Table II is to 
combine these pairs for all four cases 
in accordance with our OR rules. 
We've stored the result in a third 
column. 

We call such a table a Truth Table. 
In this case, it’s the truth table for OR. 


Nike OR Pete 
wears glasses 


Pete wears 
glasses 
8 
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We can use it to work out the result 
for any OR combination of two bits. 
All we have to do is to find the row 
that starts with the two bit values 
we're combining and then look in the 
third column for the result. 

Table Ill shows a similar table for: 

Mike AND Pete wear glasses 

Again the first two columns are 
identical, covering all four possible 


Nike wears Pete wears Mike AND Pete 
glasses 


Qlasses wear glasses 


Table /I/ 


cases. The third column combines 
them according to the AND rules. 

Look again at Table II. This 
corresponds in a sense to our binary 
rule for OR: you get a 1 if either or 
both bits you combine contain a 1. 

However if when talking about 
Mike and Pete you mean OR in the 
exclusive sense, EOR, then the 
combination of Mike wearing glasses 
and Pete also wearing glasses would 
have to be false. This is because EOR 
means either one or the other wears 
glasses, but not both — it's exc/usively 
one or the other. 

If we do mean EOR in this 
exclusive sense we'd write our 
statement about them as: 

Mike EOR Pete wears glasses 

Its Truth table is given in Table IV: 


Nike wears Pete Wears Hike EOR Pete 
glasses Glasses wears glasses 
6 8 a 


Q 1 1 
1 a 1 
1 1 é 


Table 1V 


If you look at each case, you'll see 
that the only time Mike EOR Pete is 
true is when either one or the other 
wears glasses, but not both (or 
neither). 

More formally, if both bits are O, or 
both bits are 1 the result is O. If either 
is 1 and the other is O the result is 1. 
To put it another way, if the bits are 
identical the result is O, otherwise the 
result is 1. 

Let's have a look at how we EOR 
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binary pairs of numbers. It’s the same 
as for OR and AND — just apply the 
rules for EORing to each pair of bits in 
succession. For example: 


18118118 
EOR 11100101 
gives 61010B11 


Take a look at what happens when 
you EOR a number with zero: 


18110118 
EOR oe0eeeee 
gives 16118118 


that is, when you EOR a number with 
zero it leaves that number un- 
changed. Also something interesting 
happens when you EOR a number 
with itself: 


10118118 
EOR 10110110 
gives @BBHB800 


Whenever you EOR a number with 
itself, the result is zero. This is as it 
should be: remember, when you EOR 
two identical bits the result is zero. 

Now EOR has a property which 
makes it quite useful —let’s look what 
happens when we take a number, 
EOR it with a second number and 
then go on to EOR the result once 
more with that second number. 


First nuaber 19101101 
Second number EOR 01181008 
Result 11000181 
Second nuaber EOR B1101008 
Final result 10101181 


As you can see, the first number 
has magically re-appeared! This 
always happens when you EOR twice 
with the same number as, in a sense, 
the two EORings cancel each other 


out. 
Table V summarises the process 


for all four possible pairs of one-bit 
numbers. As you can see, for all the 
cases the final resulting bit (when the 
first bit has been EORed twice with 
the second) is identical to the first bit. 


First Second Result 
bit bit 
') ') 


a 1 
1 8 
1 1 


Table V 


Second 
Ist EOR bit again 2nd EOR 


| 
8 
1 


Scle & Gyles 


Another way to think of it is that 
we are doing: 
first number EOR second number 

EOR second number 

Taking the underlined part first, 
we've already seen that any number 
EORed with itself gives a zero result. 
So what we're really doing is: 

first number EOR O 
which, as we've also seen, must leave 
just the first number, since EORing 
with zero leaves a number un- 
changed. 

All this may seem rather abstruse, 
but actually it’s quite useful. In fact 
we tend to use AND, OR and EOR 
quite often in graphics, particularly in 
animation. 

To simulate movement we fre- 
quently print something on the 
screen, then after leaving it there fora 
while to register on the eye, we blank 
it out and print it in a new position and 
so on. 

Sometimes we blank the character 
out by printing it again in the same 
place but in the background colour. 

We can, however, use EOR. If we 
use EOR to place our character on the 
screen — never mind exactly how for 
the moment — when it comes to 
wanting rid of it, we can just repeat 
ourselves. 

That is, we just EOR the character 
on again. As we've seen, the effect of 
two EORs is to cancel each other out. 
In this case, they cancel out to the 
original background — and the 
character disappears. 

Don’t worry too much about the 
details, | just want to convey the 
general idea. Our graphics series, and 
Kevin Edward's articles on animation 
will take it further. 

The point is, logical operators, as 
AND, OR and EOR are known, can be 
invaluable to both the Basic and 
machine code programmer. 

@ Next month we'll conclude our 
series with a brief look at the idea of 
masks. 


Result 
) 


8 
1 
! 
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LEFTS slices off part of 4 string. AS 
it returns the 


Get the facts at 


\eftmost part. 


PRINT LerTs(rrenainder” 6) 
cone appearing an the 
EFT has taken the le most 
s from remain ett you r fin i 
e@ rest. ITY: gerti ps 
enthisbitthatbit® 
erstwords7) with the fifth 
ou get- The number our A of 
ing to be sliced decides 
ny characters are taken. What mst r a d 
numbe is greater than the refe 
the string to renc 
e cha 
rts 


allows you to create jong 
single characters. 
f pluses you'd use: 


STRINGS 
i made up of 

ntarow 0 

PRINT STRINGS (28)"*"? 

only works W 


p$ is, in effect, 4 combined \f the final figure is omitted you just 
EFTS. With it you can get the rest of the string from the start 
ice | character. 
VW characters of the PRINT HIDS (*rotor" 2) 
e taken. Discrete 
ives “Otor - 
t ified is greatet 


PRINT 
should leave you with “eve” while: 
PRINT wing (taadan” y2,4) 
should produce “adam - nothing: 
The first number following the sicedeMTDs(™123456" 795) 
specified string indicates where the PRINT LeNislices) 
slice is tO begin. Th second number 
decides how jong that slice will be- d \f you ae for more charactels than 
the origina string can supply, te 
corggenieveltsnextwordts 0100 all" micro does the best it can 
y+nextuords 
PRINT wns (2125456" 1395) 


coabineds=H1D$ (word$219 
PRINT coabined$ 
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10 REM FEEREHEEEEELEHEEEEELELELEE 

28 REM ### Castle Of Fear ### 

3@ REM ### (C) Computing With ### 

48 REM #2% The Amstrad = -### 

5B REM ReeeHHEAEEREREEEERERSERERE 

6@ GOTO 288 

70 REM ######list Of subroutines##teE 
8@ GOSUB 928 =—« REN player 

9@ GOSUB {18 REM help 

1@8 GOSUB 125@ REM waiting 

118 GOSUB 1278 REM nove troll 

120 GOSUB 134@ REN attack 

138 GOSUB 1408 REM you aove 

148 GOSUB 144@ = REM nove jewels 

158 GOSUB 1558 REM troll 

168 GOSUB 1638 REM inventory 

178 GOSUB 1658 REN enter 

188 GOSUB 185@ REM directions 

198 GOSUB 1978 REM get 

200 GOSUB 285d REM drop 

218 GOSUB 2198 REM find 

228 GOSUB 2268 REM contents 

23@ GOSUB 2340 REM quit 

248 GOSUB 2390 REN messages 

258 GOSUB 2498 REM initialise 

268 GOSUB 2480 REM centre text 

278 GOSUB 3380 REM short delay 

288 REM #kteeA program startstHettREtt 
298 REMEREHAESEHPRAHEERHEEHEAEHEREHEEE 
308 MODE 1 

318 BORDER @ 

328 INK B15: INK 1, OsINK 2,32INK 3,1 
338 chelsyt=3imag$="CASTLE OF FEAR": 60 

SUB 2688: REM Centre Text 

340 yt=4:asg$="by Mark Smiddy and Mich 
gel Noels":GOSUB 2680 

35@ yreS:asg$="adapted by Alan McLachl 
an. ":G0SUB 2680 

348 ch=2 

378 yhe7smsg$="Expert adventuring is b 
ecoming a pastiae":GOSUB 2680 

388 yX=Brasg$="for the idle rich these 
days,":GOSUB 2688 

398 yZ=9:asq$="Long ago Kings would pa 
y high prices":GOSUB 2680 

400 yX=1O:asg$="to the likes of you to 
rescue their":GOSUB 2688 

418 yk=liimsq$="beautiful,and not-so-b 
eautiful daughters":G0SUB 2680 

420 di=38:G0SUB 3388: REM delay 

438 cha3iyé=13sasg$="Not so now.Even t 
he dragons have stopped":G0SUB 2688 
448 yt=l4:asg$="eating elvies - in fac 
t Adventureland":G0SUB 2688 

45@ yZelSiasg$="is not what it used to 
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be, ":G0SUB 2688 
460 di=30: GOSUB 3388: REM delay 
470 ch=2sys=17:asg$="However while enj 
oying a fine meal with":GOSUB 24688 
488 yk={8:msgs="a friendly dwarf, you 
find yourself":60SUB 2680 
498 ya=i9:msg$="transported to the gue 
st room of a large":GOSUB 2680 
588 y4=20:msg$="castle. As you try to 
recover.....° :GOSUB 2688 
S18 yh=24ichelimsg$="Any key to go on, 
";GOSUB 2680 
928 WHILE INKEY$="";WEND 
538 CLS 
548 che2:yheSiasg$="a glowing message 
appears in the air":GOSUB 2480 
958 INK 3,6:cZe3:ydebsasgs="Escape in 
5 score turns or DIE!!!";GOSUB 2688 
568 ch=2:y4=9:asg$="As you watch the a 
essage melts away. "sG0SUB 2480 
578 FOR delay = 1 TO 1008:NEXT 
988 WINDOW #1,1,48,5,7:FOR 1%= 1 TO 4 
O::FOR k@#1 TO 3sFOR delay = { TO 20:N 
EXTHINK 1,15:PEN LsLOCATE #1,1%,k%2PRI 
NT#L, CHRS (143); sNEXTSNEXT 
598 yt2l2:ch=lsasg$="Use the following 
keys to play. "sG0SUB 2688 
608 WINDOW #2,6,35,13,22 
618 INK @,15sINK 1,@sINK 2,3sINK 3,1 
628 PEN 3:LOCATE#2, 3,2:PRINT #2,"N = 
North § = South" 
630 LOCATE #2,3,4:PRINT #2,"E = East 

W = West" 
640 LOCATE #2,3,6:PRINT #2,"U = up 

D = Down" 
658 LOCATE #2,12,8:PRINT #2,"8 = Quit” 
668 yZ=23:PEN 3:msg$="Press any key to 
go on": GOSUB 2688 
678 WHILE INKEY$="";WEND 


68@ CLS #2 

698 LOCATE #2,3,2:PRINT#2,"@ = Look 
A = Attack" 

708 LOCATE #2,3,4:PRINT #2,"6 = Get 
L = Drop" 


718 LOCATE #2,3,6;PRINT #2,°P = Wait t 
urn =H @ Help" 

728 LOCATE #2,9,8:PRINT #2,"1 = Invent 
ory" 

738 yk=23:PEN 3:msg$="Press any key to 
go on":GOSUB 2688 

748 WHILE INKEY$=""sWEND 

758 GOSUB 2498: REM initialise 

768 REM 

778 REM 

788 REM 


798 REM #eeekEREEMAIN LOOPHESHRERERSES 

808 CLS #4 

BiB WHILE {#1 

828 IF roomk(>last% THEN BOSUB 1788:RE 

NM enter 

830 IF Whe THEN GOSUB 1278:REM move t 

roll 

848 GOSUB 900:REM player 

858 WEND 

BOB REM ####es#END OF MAIN LODPHEHHRSE 

878 REM 

888 REM 

898 REM 

900 RENFERRREER EHD] ayer keHeeR HER REE 

918 Wi 

928 PEN 45,3 

938 IF CINT(RND#108)+1)-T2<18 THEN PRI 

NT #5:PRINT #5,"A small dwarf walks up 

to you"sPRINT #5,"says ‘Hurry up‘ and 

then walks off." 

948 IF INT(RND#188)+1 <1@ THEN PRINT # 

SPRINT #5, "Listen, you can hear stran 

ge voices," 

950 IF C48 AND INT(RND#188)+1 <8 THEN 
PRINT #5:PRINT #5,"A sprite takes the 
"scoin$(C4)y" coin and runs. ":CZeC%-1 
THHILE R¥214 OR ctsh(R%)<>O:RAEINT(RND 

#27) +1: WENDicts4 (RZ) a1 

968 IF (coind(1)<>@ AND coind(2))<>8 A 

ND coind(3)<> @ AND NOT (Y% XOR @) THE 

N IF ABS(coink(3)-coind(2)) sABS(coink( 

2)-coink(1)) THEN N&=7:GOSUB 23981 END 

978 PEN #4,1 

988 PRINT #4:PRINT #4, "Turns - "sTAs1F 
TH)=180 THEN PRINT #4:PRINT 44," ’Sorr 

y time's up says a ghostly voice":Ni=! 

NT(RND#4)+1:GOSUB 2398 

990 WHILE INKEY$<>""sWEND 
1@00 PEN #4,2:G$="":PRINT #4:PRINT #4, 

"Your move “sittei:WHILE 6$="" AND tt 

(4008: GSE INKEYS$s tt=tt+1: WEND: GS=UPPER$ 
(G$) IF GS=CHR#(13) OR G$="" THEN G$=" 

W'SPRINT #4, “Wait” ELSE PRINT #4, G$ 

1818 RESTORE 3268 

1028 des$="" 

1038 WHILE des$<>6$ AND NZ<>255 

1048 READ des$,N% 

1058 WEND 

1868 IF N%=255 THEN PRINT #4,"1 do not 
understand":PRINT #4,"Try anather key 

"SRETURN 

1078 Te=TA+1 

1888 IF N%<=6 THEN GOSUB 1408: RETURN: 

REM move direction 

1098 IF N%=7 THEN GOSUB 1700: TZ=TH-1:R 


Computing with the Amstrad 


ETURN: REM Look 

1108 IF NX#8 THEN GOSUB 197BsRETURN: R 
EM get article 

{118 IF N%=9 THEN GOSUB 2858:RETURN: R 
EM drop article 

1128 IF NX=18 THEN GOSUB 1638:RETURN: 
REM inventory 

1138 IF NXet1 THEN GOSUB 234@sRETURN: 
REM quit 

1140 IF Ne#12 THEN BOSUB 1250: RETURN: 
REM wait 

1150 IF Nde13 THEN GOSUB 1348: RETURN: 
REM attack 

1168 IF NX=14 THEN GOSUB 118B:RETURN: 
REM help 

1178 RETURN 

1188 REM ##teeetREheL pHteeEREseEESE 
119@ RESTORE 3348 

1208 WHILE S&<T% AND 82¢>95 

121@ READ S%,des$ 

1228 WEND 

1238 PRINT des$ 

1248 RETURN 

1258 REM#EHERREWAL ti ngeeteeeeeteeetet 
126@ PRINT #4,"You wait... Tine passes* 
piFOR Nei TO L8sPRINT #4,".";:FOR dela 
y=1 TO 15@:NEXTsNEXT:RETURN 

1270 REM#te#eEFEEMOVE trolletsEsetett 
1280 trastrolla(t) Weal 

1298 GOSUB 1448:60SUB 1558 REM move je 
wel/create troll 

1308 IF trollé(t)*room’ AND tré<>roond 
THEN PRINT #4,"A large troll enters, 
holding";:IF troll4(2)*8 THEN PRINT #4 
," nothing, * 

1318 IF trollai)*room% AND tr’<>rooas 
AND troll4{2)¢)8 THEN PRINT #4,"a gli 
ttering jewel," 

1328 IF troll4(1)<>room% AND trX=rooat 
THEN PRINT #4,"A large troll leaves." 
1338 RETURN 

1340 REMBERREEE EER Hat tack RtHHSHREEREEY 
1350 IF cts%(room%)=@ THEN PRINT #4,"A 
ttacking walls may be seen as insanity 
and has no effect." 

1368 IF (ctsd(room%) AND i)=1 OR (ctsh 
(room%) AND 2)#2 THEN PRINT #4,"Your b 
lows bounce cleanly of the pedestal” 
1378 IF (ctsk(room%) AND 4)=4 THEN PRI 

NT #4,"The troll just giggles !" 

1380 IF (cts%(roow%) AND 8)=8 THEN PRI 
NT #4,"The angry troll throws a large 
jewel, ":N@=INT(RND#4)+1:G05UB 2390 
1398 RETURN 

1400 REM H#REEEEHEEERHMOVEHEEREREEEREE 
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1418 IF dirZ(NZ)=@ THEN PRINT #4,"Can’ 

t go that way. ":RETURN 

1428 roomtedirZ (Nz) 

1438 RETURN 

1440 REM ##4e¢4¢4¢¢nOVe jewel seReeteet 
1450 IF (jews(1)<>8 AND jew%(2)<)@ AND 
jewk(3)<>8) AND NOT (X% XOR @) THEN I 
F ABS(jewk(3)-jewk(2))=ABS(jews(2)-jew 

4(1)) THEN NZ@INT(RND#4)+1:605UB 2398 
1468 RXEINT(RND#3) +1 

1478 IF RX<=2 THEN trollZ(i1)=jenZ (INT ( 

RND#3) +1) 

1488 IF R4#3 THEN trollZ(i)=jewZ(INTIR 

ND#3) +1) 

1498 IF troll4(i)=8 THEN trollA(i)=INT 
(RND#27) +1 

{588 GOSUB 1558: REM troll 

1518 PEN #4,3 

1520 IF troll%(2)>8 AND (ctsA(trolld(i 
)) AND 3)=@ THEN ctsd(trollZ(1))=ctsx( 

troll4(4)) OR 2: jewh(troll%(2)-1)=trol 
VAL) strollZ(2)stroll4Z(2)-1:PRINT #43P 

RINT #4, "You hear a distant WHODOF!!"s 

RETURN 

1538 IF trollZ(2)<4 AND (ctsA(trollZ(t 
))AND 2)22 THEN cts%(trollZ(1))=cts%it 

rollaz(i)) KOR 2: jew%(troll4£(2))#@:trol 
1Z(2)*trollZ(2)+1sPRINT @4:PRINT #4,"Y 

ou hear a distant SLUUURP!!" 

1548 RETURN 

1550 REMEEESEEESt Ol LEeeRHRREEREEEE 
156@ FOR NZ=1 TO 3 

1578 IF jewk(NdZ)strollZ(1) THEN ctsA(t 

rollZ(i))actsd(troll4Z(1) OR 2) 

1588 NEXT 

1598 ctst(room%)=ctsd(rooms) AND 243 
1608 IF room=troll4Z(1) AND troll%(2) 

«> @ THEN cts%(roomd%)=ctsilroom%) OR B 
+RETURN 

1618 IF roomdetrollZ(1) AND troll%(2) 

=@ THEN cts%(roomé)sctsd(room%) OR 4:R 

ETURN 

1628 RETURN 

1630 REMFHSRREREFInventoryHHeeeeeeses 
1448 PRINT #5,"You are carrying:-" 
165@ IF Ch=@ THEN PRINT #5, “Nothing of 
use. “:RETURN 

1468 FOR NZ=1 TO C% 

1678 PRINT #5,°1 large “scoin$(Ni)s" c 

in." 

1688 NEXT 

1698 RETURN 

1700 REM#ESRESESH Font er deseeeeeeeaes 
1718 enterZ=rooat 

1728 GOSUB 1558: REM trol! 


1738 CLS 45 

1748 PEN 45,1 

175@ RESTORE 2728 

1768 roomt=8 

1778 WHILE rooad< enter’ 

1788 GOSUB 2198: REM find 

1798 WEND 

1888 crip$="You are standing “tdes$:PR 
INT #5:PRINT#S, crip$ 

1818 GOSUB 2268; REN contents 

1820 last%=roaas 

1838 GOSUB 1850: REM directions 

1848 RETURN 

1850 RENHEREEEEEEdirectionseteteeeeete 
1868 PEN #5,2 

1878 IF rooms¢>14 THEN PRINT #5: PRINT 
#5,"I see a way "3 

1888 RESTORE 3298 

1898 FOR N4= 1 TO 4 

1988 READ des$ 

1918 IF dird(NZ)<> @ THEN PRINT #5, de 
835" ,"j 

1920 NEXT 

1938 IF dirZ(Nt) <)@ THEN PRINT #5, CH 
R$(8)3".";CHR$(8) ELSE PRINT #5, * " 
1940 IF dird(5) (8 THEN PRINT #5:PRIN 
T #5,"A set of magical steps lead upwa 
rds,” 

1950 IF dir%(4)<> @ THEN PRINT #5:PRIN 
T #5,"A hole in the floor leads down." 
1968 RETURN 

1970 REMEAERESESEAE QOL HERES EE RE EERE 
1988 IF room&<>5 AND ctsé{rooe%)=8 THE 
N PRINT #4,"Nothing here worth taking, 
"SRETURN 

1998 IF (ctsé(room’) AND 1)=1 THEN PRI 
NT #4,"Get large coin. "sPRINT #4, "Take 

n"sPRINT #4,"Shloop!!!.. the pedestal 
vanishes. “sctsd(room4)=ctsd(rooms) AND 
254scoind (Ch) =OsCAsCK+1sRETURN 

2008 IF (cts%(room%) AND 2)=2 THEN PRI 

NT €4,"Get large jewel. "sPRINT #4, "Can 
“t the things stuck. ":RETURN 

2018 IF (cts%(room%) AND 4)=4 OR (cts% 
(room4) AND 8)=8 THEN PRINT #4,"“Get bu 
rly troll?"sPRINT #4, "Nice try!" 

2828 IF (ctsh(room4) AND 8)=8 THEN PRI 
NT #4, "Get large jewel. "sPRINT #4, "The 
troll won't let ae!" 

2838 IF room%=5 THEN PRINT #4,"Get ske 
leton. "sPRINT #4, "One skeleton taken." 
N22 (INT(RND#2)+1)+4:60SUB 2390 

2048 RETURN 

2050 REMEHHRHERRERdrOPEHEEEEERER EEE 
2068 IF C&=@ THEN PRINT #4,"Drop what? 
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"SRETURN 

2078 PRINT #4,"Drop large coin." 

2080 IF (cts%(room%) AND 2)=2 OR (cts% 
(room%) AND 1)=1 THEN PRINT #4,"The "; 
coin$(Ck);" coin sticks to your finger 
5. ":RETURN 

2098 IF (roomk<>23 AND room%<>1@) THEN 
coink(C%)=raom% 

2108 IF roomé=23 THEN coind(C%)=14 
2118 IF roomZ=1@ THEN coind(C2)=8 

2128 PRINT #4," Dropped, “:C%=CZ-1 

2130 IF room%=23 AND cts4(14)=8 THEN P 
RINT #4,"The coin "coin$(CZ+i);" rolls 
away down a hole in the floor. "sctsh( 
14)=1:RETURN 

2140 IF roomZ=18 AND (cts%(18) AND 2)= 
@ THEN PRINT #4,“Buuuuurp."sPRINT #4," 
Just what I needed. ":RETURN 

2158 IF (cts%(room%) AND 4)=4 THEN PRI 
NT 44,"The burly troll shrieks and run 
S away, "stroll 4(1)=INT(RND#27) +1 

2168 IF (ctsi(room%) AND 8)=8 THEN PRI 
NT #4,"The burly troll walks off sulki 
ng. “strollZ=INT(RND#27)+1;60SUB 1558 
2178 PRINT #4,"Whoosh! as the “;coin$( 
CK+1);" coin drops a pink"sPRINT #4,"p 
edestal rises to catch it."scts%(rooas 
Yactsh(rooms) XOR 1 

2188 RETURN 

2198 REMELEERHEES i nCHEHHHAHEEREREE ESE 
2288 READ rooms 

2218 FOR Né=1 TO 4 

2228 READ dird(Nz) 

2238 NEXT 

2248 READ des$ 

2258 RETURN 

2268 REMEEHFEHESCONtENtSHEEEEREREE EEE 
2278 RESTORE 3308 

2288 NA=L:HHILE NRC >16 

2298 READ des$ 

2388 IF (ctsa(room%) AND N%)=N% THEN P 

RINT #5, des$ 

2318 NABNL#2 

2328 WEND 

2338 RETURN 

2348 REM teeeeeeeEHAQUItEEESEREEEEH 
2358 PRINT #4,"QUIT!!!"sPRINT #4, "Are 

you really sure?® 

2368 WHILE INKEY$=""sWEND 

2378 IF INKEY$="y" OR INKEY$="Y" THEN 

CLS:PRINT #4, "Bye, “sEND 

2388 RETURN 

2398 REM ##kttttEMeSSAgEStHeEEREE ERE 

2488 IF Na=1 THEN PRINT #4, "Suddenly, 

a massive hole opens up in"sPRINT #4," 
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the ground beneath your feet. The shoc 

k"sPRINT #4,"of landing kills you," 

2418 IF N%=2 THEN PRINT #4,°A large pe 

ndulum swings in from the roof";"and n 

eatly cleaves your skull.* 

2428 IF N43 THEN PRINT #4,"A massive 

bouler rolls in and flattens"sPRINT #4 
y “yous * 

2438 IF Nk=4 THEN PRINT #4,"A large sp 

ear glides down from above and";"kills 
you." 

2448 IF N&=5 THEN PRINT #4,“The skelet 

on didn’t like being pulled"sPRINT #4, 
"off the wall, and you now find youse 
1f"sPRINT #4,"chained there too!” 

2458 IF N4=6 THEN PRINT #4,"The skelet 
on promptly grabs you by the":PRINT #4 
y"neck and throttles you." 

2468 IF N&<=6 THEN PRINT #4:PRINT #4," 

So you lose again sucker!!":END 

2478 IF N&=7 THEN PRINT #4, "Congratula 

tions, you win. The elvies":PRINT #4," 

@ass around you and carry you away to” 
tPRINT #4,"a hero's welcome, ":END 

2488 RETURN 

2498 REM ##eettetinitialiseseeetestss 
2500 WINDOW #5,1,48,1,13 

2518 WINDOW #4,1,48,16,25 

2526 WINDOW #6,1,40,14,15 

2538 LOCATE #6,1,1sPRINT #6,STRING$(40 
wom) 

1 

2548 CH=B:NR=Os 1220s X%20s 220 

2558 roomé=13:lastz=17 

2568 DIM dirZ(8),cts4(27) ,trollZ(2), je 
wh(3) ,coind(3) ,coin$(3) 

2570 des$= STRING$(255," ") 

258@ RESTORE 3328 

2598 FOR Ni= 1 10 3 

2688 READ coin$(Nz) 

2618 NEXT 

2628 jewh(1)=3s jews (2)=18: jew (3)=25 
2638 FOR NZ=1 10 27 

2648 READ cts%(Nd) 

2658 NEXT 

2668 trolla(1) = 17stroll4(2) = 1 

2678 RETURN 

2688 REM ######4centre texteeeeeeeeeet 
# 

2698 x4=(4B-LEN(msg$))/2 +1 

2708 LOCATE xX,yX:PEN c&:PRINT msgs 
2718 RETURN 

2728 DATA 1,2,0,4,0,0,8 

2730 DATA “at the bottom of a deepwell 


2748 DATA 2,3,1,8,8,0,8 


2758 DATA “in a misty North/South pass 
age." 

2768 DATA 3,8,2,6,0,8,8 

2778 DATA “at the end of a misty pass 
age." 

2788 DATA 4,0,8,7,1,8,8 

2798 DATA “a strange room with a very 
high ceiling." 

280@ DATA 5,0,0,8,0,0,8 

2818 DATA “in the torture chamber. The 
room is full of weird equipment, A 
skeleton hangs from the wall and the 
place is littered with cobwebs. * 

2828 DATA 6,0,0,9,3,8,8 

2838 DATA “in a dank East/West pass 
age, A cloud of green mist enters fr 
om the West," 

2848 DATA 7,8,0,0,4,16,8 

2858 DATA “in the southeast cornerpass 
age," 

2868 DATA 8,9,7,8,5,8,8 

2878 DATA “in a small dark ante 
chamber," 

2888 DATA 9,0,8,0,6,0,8 

2898 DATA “at one end of a damp pass 
age." 

2988 DATA 10,11,8,8,8,8,1 

2918 DATA “in the food store. A si 
gn on the wall flashes ‘FEED ME’," 
2920 DATA 11,12,18,8,8,8,0 

2938 DATA "at the south end of thekitc 
hen." 

2948 DATA 12,0,11,15,8,6,8 

2958 DATA “at the north end of thekitc 
hen." 

2968 DATA 13,14,0,16,8,22,8 

2978 DATA “in the guests lounge, A si 

gn over the north door says, ‘D 

ON'T 60 NORTH’. * 

2988 DATA 14,0,0,0,8,8,8 

2998 DATA “in the trap rooa, A si 

gn on the wall reads ‘I WARNED YOU!'* 
3008 DATA 15,0,0,18,12,0,8 

3818 DATA “in a short connecting hall 


3826 DATA 16,17,8,8,13,0,8 

3038 DATA "at the south end of thelong 
dining rooa." 

3048 DATA 17,18,16,0,0,8,8 

SO58 DATA “in the middle of the long 
dining rooa." 

3H68 DATA 18,0,17,8,15,8,8 

3878 DATA “at the north end of thelong 
dining room." 

3888 DATA 19,0,8,22,8,0,8 
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3898 DATA " at the west end of a long 
E/W hall." 

3188 DATA 20,21,8,0,0,0,8 

S118 DATA “at the south end of theking 
"s bedroon." 

3128 DATA 21,0,28,24,8,8,8 

3138 DATA “at the north end of theking 
"s bedrooa.* 

3148 DATA 22,8,8,25,19,8,13 

315@ DATA “at the east end of a long 
East/West hall." 

3168 DATA 23,0,8,26,0,8,5 

3178 DATA "in the queens dressing chan 
ber." 

3188 DATA 24,0,8,27,21,8,8 

3198 DATA “in the queens bedrooa. “ 
3288 DATA 25,26,8,8,22,8,8 

5218 DATA “in Eliza‘s room." 

3228 DATA 26,27,25,8,23,8,8 

3230 DATA “at the south end of a long 
East/West passage." 


PAYROLL 


PURCHASE/SALES LEDGER 


STOCK CONTROL 
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3248 DATA 27,8,26,0,24,8,8 

3258 DATA “at the north end of a long 
North/South passage. * 

3268 DATA N,1,8,2,E,3,0,4,U,5,D,6,8,7 
3278 DATA G,8,L,9,1,10,0,11,,12,P,12 

3288 DATA A,13,H,14,?,255 

3298 DATA North, South, East West 

3308 DATA "A tall pink pedestal with a 
large coin on it stands on the floor 
»","A tall blue pedestal with a large 
jewel on it stands on the floor.","A b 

urly troll is gazing at you." 

3310 DATA “A burly troll carrying a la 

rge jewel, stands looking at you," 

3328 DATA Bronze, Silver Golden 

3330 DATA 1,0,0,0,8,0,8,0,8 

3348 DATA @,8,0,8,0,8,1,8,8 

3350 DATA 8,8,1,0,8,0,0,0,8 

3348 DATA 30,"You're doing fine.", 48," 

Why don’t you make a aap?",48,"not auc 

h time left now",8@,"We're all gonna d 


ie!",95,"Ah well, there goes another | 
ite." 
3378 END 
3380 RENEEEEHEEERSde] ayRERHEEEREESEREE 
3390 FOR delay = 1 TO d%#1@QsNEXT 

3488 RETURN 


Give your fingers a rest... 


All the listings from this month's 
issue are available on cassette. 


See our special offer on Page 77. 


CAN BE YOUR 
STEPPING STONE : 


TO EFFECTIVE FINANCIAL AND 
ADMINISTRATIVE CONTROL 


THE PRICES ABOVE ARE FOR THE CASSETTE VERSION 
OF THESE PROGRAMS, DISC VERSIONS NOW AVAILABLE 
FOR THE AMSTRAD, CBM AND BBC. 


ALL SOFTWARE PROVIDED BY ABACUS, IS FULLY 
SUPPORTED BY THE COMPANY. 


Sl 


21 UNION STREET 
RAMSBOTTOM, LANCS 
PHONE: 070-682 7775 
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MSTRAD Basic is rather 
peculiar, being superb in 
some areas such as the 


unique ability to handle inter- 
rupts, yet falling down badly in 
others such as the graphics 
department, where there is a 
notable absence of commands. 

The operating system is quite 
different however, having a wealth of 
commands and routines for the 
machine code programmer, all fully 
documented in the Complete Operat- 
ing System Firmware Specification 
from Amsoft. 

One of the most powerful features 
of the Amstrad is the ability to add 
commands to the Basic and so 
overcome any deficiencies. There are 
few restrictions. The main difference 
is the syntax of the new commands, 
which | will describe a bit later on. 

Variables and absolute values can 
be passed so that functions are 
possible, but you are restricted to 
passing the result back to a variable. 
You could not print the value directly 
— you have to put it in a variable and 
print that. 

These additional commands are 
written as machine code subroutines 
which can be located almost 
anywhere in RAM and be any length. 

The names and execution 
addresses of the routines are stored in 
a table which the operating system 
must be informed of so that they can 
be recognised and used within a 
Basic program. 

Commands such as these are 
known as Resident System Exten- 
sions or RSXs for short and can be 
recognised by the vertical bar} which 
must precede them. 

Program | adds seven new com- 
mands to Amstrad Basic. Their syntax 
and function is described later. First 
we will look at how they are actually 
constructed. 

All dialects of Basic have some 
method of calling a machine code 
subroutine. On the Amstrad this takes 
the form of a CALL statement. Not 
only can a machine code program be 
run but an optional list of parameters 
may be passed as well, which can be 
picked up and used by the routine. 

The parameters are placed after 
the CALL statement and are separ- 
ated by commas. When the code is 
called they are placed in a block 
somewhere in RAM. 

Where exactly this block is located 
is unimportant, as the routine is 
entered with the A register equal to 
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RSXs at your 
command 


ROLAND WADDILOVE introduces 
Resident System Extensions 


the number of parameters and the IX 
register pointing to the start of the 
block. 

The parameters can be obtained 
using indexed addressing with the IX 
register, LD B, (IX+0) would load the 
B register with the first item in the 
parameter block (low byte only). 

Parameters can be either integer 
expressions, real expressions or the 
address of a variable. A two byte 
number is placed in the block for each 
parameter passed. An integer 
number, variable or expression is 
passed directly, a real number, 
variable or expression is first conver- 
ted to an integer before being placed 
in the block. 

By placing @ before a variable its 
address is placed in the parameter 
block allowing information to be 
passed back into Basic variables. 

CALL &8000,@a% would pass the 
address of a% whereas CALL 
&8000,a% would pass its value. If 
you know where a variable is stored 
you can then put the result of the 
routine back in it. 

All strings must be passed in this 
manner. They cannot be passed 
directly — the value placed in the block 
is the address of the string descriptor. 
Byte O of the descriptor is its length 
and bytes 1 and 2 contain the address 
at which the string is stored. 

For some unknown reason Basic 
places the values in the parameter 
block in reverse order. So if you CALL 
&8000,a,b,c,d the first value in the 
parameter block is d, followed by c,b 
and a, two bytes each, low byte/hi 
byte in normal Z80 fashion. 

CALL &AAOO in a program is 
meaningless to anyone but the 
programmer who wrote the routine in 
the first place. In fact if you have 
several routines it is difficult to keep 
track of them yourself! 

It would be nice if we could give 
the program a name and use that 
instead. Screen.dump is far more 
descriptive than CALL &AAOO. This is 


exactly the facility an RSX gives us. 

An RSX is simply a CALL to a 
machine code subroutine, but instead 
of having to remember its address we 
can use its name instead, as if it were 
a Basic command. 

Anything that can be done with 
CALL can be done with an RSX 
command. There is no difference. All 
CALL XXxX,... statements can be 
replaced with . COMMAND.... 

In order to do this an external 
command table must be set up, the 
operating system must know what 
the routines are called and where 
they are located. The table is split into 
two, which need not reside next to 
each other. One half is a table of 
jumps to the execution addresses of 
the routines and the other contains 
their names. 

The first two bytes of the RSX 
table contain the address of the list of 
names. The last letter of each name 
has &80 added to its Ascii code to 
mark it and the name list ends with a 
zero byte. Four bytes of workspace 
are also required by the operating 
system. 

The RSX command table in 
Program | is constructed as follows: 


rsx _table 

DEFW name_table ;pointer to name list 
JP reset jjuap table 

JP set_clock 
JP gpen 
-fame_table 
DEF$ ‘RESE' 
DEF &D4 

DEF$ ‘SETCLOC’ 
DEFB &CB 

: 


slast letter has &8@ 
jadded to code 


DEFB 8 
sworkspace 
DEFS 4 
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10 REM PROGRAM 1 

20 REM By R.A. Waddilove 

3@ REM(c)Computing With The Amstrad 
4@ sum=Q:address=%8000 

50 FOR i={ TO 36 

68 READ codes 

70 FOR j=1 TO 25 STEP 2 

8@ byte=VAL("&"+MID$ (codes, j,2)) 

90 POKE address, byte 

100 sum=sum+bytesaddress=addresstl 

110 NEXT 

128 NEXT 

130 IF sum(>50246 THEN PRINT"Error" 
140 END 

158 DATA 01098821858QC3D1BC2F8QC3E6 
168 DATA SOC3ALSAC3C48AC3DCAACIO381 
178 DATA C31581C32681deaaaoneeaaeaa 


Program | 


The operating system must be 
informed of the presence of any RSXs 
by loading the BC registers with the 
address of the RSX table, the HL 
registers with the address of the 
workspace and calling KL LOG EXT 
which is at &BCD1. The first nine 
bytes of the code in Program | are: 


LD BC,rsx_table 
LD HL,workspace 
JP &BCD1 

return 


jlog command table & 


This is located at &8000, so CALL 
&8000 enables the RSX command 
table. A word of warning though. RSX 
tables are linked so that more than 
one can be active at the same time. 
Be careful not to enable the same 
table twice. 

If you do, then the second time it is 
linked to the first but as they both 
occupy the same place the operating 
system gets ina terrible muddle when 
looking for a command. 

The simplest command in Program 
| is }|GRAPER,colour which can be 
used to set the graphic paper colour. 
This is a typical example of a simple 
RSX command: 


-gpaper ;set graphic paper 
colour 

DEC A j1 parameter? 

JP NZ,error j;juap to error routine 
if not 

LD A,(1X+8) = sget colour 

JP &BBE4 ycall GRA SET PAPER & 


return 
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RSA 


180 DATA daaaaaaeaadeanaas24sss45y4 
190 DATA S34554434C4F43CB475R45CE47 
208 DATA 50415045024745D4404C9993C8 
218 DATA 46494CCCHARDRAADBAaABAARRD 
220 DATA @2eadadadadaanaganaaaadada 
238 DATA GBBRRRARRRBRReeRARAAAAABEa 
240 DATA Gdedeadaaaaaaadaaaaaaaaaad 
258 DATA @80000008000002195807ECDSA 
260 DATA BB23A720F8C952535828657272 
270 DATA F720D8AG82 100001 180B0A7CA 
280 DATA LQBD3D20G9DDSERRDD4401C310 
298 DATA BDDDSEBBDDS6B1DDGEBZDD4683 
$00 DATA C3LOBDFEGZC28980DD7E@QCDDE 
318 DATA BB3E17CDSABBDD7E@2C35ABB3D 
320 DATA C2898GDD7E@BCSE4BBCDQOBIFS 
330 DATA CD37BDCDOBBBCDFFBBCDOSBCCD 
348 DATA A7BCCDSABBCD4EBBF 1C3@CB93D 


‘GPAPER could be entered as 


igpaper — it will be changed to upper 
case anyway by Amstrad Basic — and 
must be followed by one parameter 
which can be anything except a 
string. 

The RSX commands added by 
Program | are shown in Table I. 

Program I! demonstrates the use 
of some of these new commands. 

Space has been left for you to add 
your own routines. If you have a look 
at Program | you will see quite a few 
zero bytes — this is where you add 
your own command names and 
jumps. 

To do this place a JP to the start of 
the code at &8020, and put the name 
(upper case, with last letter+ &80) at 
&8052. The code can be placed 
anywhere from &81CD onwards. 

You might like to try DEEK and 
DOKE...a double byte, 16 bit PEEK 
and POKE for starters. Can anyone 
add | CIRCLE,x,y,r? 

There is room for up to five extra 
RSX commands, so get cracking. 


iRESET 


358 DATA C2898OCDA4BBDDSERODD660177 
368 DATA 233600C9SDC2898QDD7EGBA7C2 
378 DATA A7BCCDBIBB3BFBCIFEGIC2B980 
380 DATA DD7EQOCDDEBBDDSEO2D0446030D 
398 DATA SEQ4DD5605D5ED53C781220981 
400 DATA CDFQBB32CB813CCDE4BBCD11BC 
410 DATA 360438063E0228023E0132CC81 
420 DATA CD9581ED42CD788128F6D1EDS3 
430 DATA C781CD958189CD788128F 70922 
440 DATA C781EB2AC981CDFOBB21CB81BE 
450 DATA C2EDSBC7B1ESCDFGBB21CB81BE 
468 DATA E1C92AC9812323CD878128F92B 
478 DATA 2BES2AC9812B2BCD878128F923 
480 DATA 23EDSBC781CDCOBBELEDSBC781 
498 DATA CDFOBB2AC7B1AFED4BCC8147C9 
540 DATA GaaaAdaaaAaaaeadanaaaaaaaa 


10 REM PROGRAM IT 

20 DEFINT a,i,yryx,y 

3@ x=320: y=100:r=1008 

4Q MODE Q: INK @,@:BORDER @ 

5@ PRINT:PRINT SPC(5) "POLYGONS" 

6 PRINT:PRINT " How many sides ?" 
70 PRINTsPRINT SPC(S)"( 4 - 9 )" 
8@ }FLUSH,@:a=0 

90 WHILE a<52 OR a)57: (GET, @a:WEND 
100 DEG 

110 MOVE xtryy 

120 {GPEN,@,1 

130 FOR i=0 TO 360 STEP 360\(a-48) 
140 DRAW x+r#COS(i) ,ytr#SIN(i) 

150 NEXT 

160 IFILL,x,y,1+INT(RND#15) 

178 |SETCLOCK 

188 WHILE TIME¢9@0: WEND 

190 RUN 


Program II 


Resets computer but retains program. 


ISETCLOCK [, low [,high]] Sets the clock to zero if no parameters, to 
low where low< 65536 if one parameter, to 
low+65536*high if two parameters. 


!GPEN,option,colour 


iGPAPER, colour 
iGET, @integer_variable% 


Sets the graphic pen colour and the plotting 
option. 

Sets the graphic paper colour. 

Waits for a key to be pressed then places its 


code in integer_variable%. 


iF LUSH, buffer 


Flushes sound buffer if parameter=1, 


flushes keyboard buffer if parameter=0. 


‘FILL,x,y,colour 


Simple fill routine, origin must be at 0,0. 
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TROT LILLES 


Dodge your opponent's 
high-powered laser net 
in this exciting duel 

to the death by 
ARAMELLO CHAPMAN 


ROUTINES 


required. 


positions. 


1D REMKSERHARELEREESHE EERE EERE REESE 
20 REMHSERRREXTRONN CYCLESHRRRRRESE 
30 REMRFERREEEBY A.Chapmanteeeeene# 
4@ REM(c)Computing with the Amstrad 
45 LET scred=O:LET scblue=0 

3@ GOSUB 71@:REN instructions 

60 REMREHHESEMAIN ROUTINERHHER EX 

7@ PLOT y2,y1,3sPLOT x2,x1,2 

8B SOUND {,1008,5,15,8,8,1:SOUND 2,348 
0,5,15,8,8,1 

9@ IF INKEY(53)=8 THEN LET x3={:LET x4 
=Q 

108 IF INKEY(62)=*@ THEN LET x3=-1:LET 
x459 

118 IF INKEY(63)=@ THEN LET x4=i:LET x 
358 

128 IF INKEY(71)=0 THEN LET x4=-1:LET 
x3=Q 

130 IF INKEY(4)=8 THEN LET yS=4sLET y4 
| 

') 
140 IF INKEY(5)=@ THEN LET y3e=-{:LET y 
459 
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60 Main routine. Reads keyboard, checks 980 

collision and deducts fuel. 

270 Prints death of both players. 

310 Prints death of ane Boer 

ints death of red player. 

nee ay of game routine. Waits until Sle ee 
pressed, then goes to screen choice routine. 

490 Choose screen routine. Prints different set 
options. Waits for keypress and goes tos 


i rtant variables, 
iable dump. Holds all impo | 
ee Herat start of game and players’ starting 


| | HE sun rises in the East as 
T usual — but you know that 

today is special. Today is 
the day of the game. 

It has been 100 years since 
mankind decided to give up war and 
as a substitute invented the game 
of all games — Tronn Cycles. 

Following in your father’s 
footsteps, you have decided to enter 


710 Prints keys needed and instructions for play. 


940 Sets up open plain. 
Sets up maze of death. 


the games in search of fame and 
glory. 

The largest crowds in the games’ 
history are present. They have come 
from all corners of the world to see 
the Earth’s most popular entertain- 
ment. 

You walk into the arena to the 
sound of cheering and greet your 
opponent. As you get into your 


4050 Sets up random maze. 
VARIABLES 
ti Fuel remaining. 


158 IF INKEY(14)=@ THEN LET y4=i:LET y 
358 
168 IF INKEY(13)=@ THEN LET y4=-i:LeT 
y3=Q 
178 LET xl=xi+x3#2sLET yleyl+y3#2:LeT 
X2=x2tx4e4sLET y2sy2+y4e4 
180 LET tisti-{:1F tie® THEN GOTO 278 
198 LOCATE 16,1:PEN 12:PRINT ti 
288 LET colx=TEST(x2,x1) 
21@ LET coly=TEST(y2,y1) 
2208 IF colx=4 OR coly=4 THEN GOTO 248 
ELSE IF colx¢>@ AND coly<>@ THEN GOTO 
278 
230 IF colx<>@ THEN GOTO 318 ELSE IF c 
oly<)@ THEN 348 
248 GOTO 78 
270 REM###OUT OF FUEL/TWIN CRASHEEE 
200 RENERERRERREEREREHERERSEELERERE 
285 MODE 1sPEN 7 
290 IF ti<! THEN PRINT” Hard luck y 
ou both ran out of fuel.":60T0 438 
295 PRINT" Hard luck both of you ar 


yi & y2 Coordinates of a nee 
2 Coordinates of red cycle. é 
ee 5 oF Direction in which blue cycle is moving. 
% & x4 Direction in which ee Bee een ain 
Tests to make sure blue cy 
eas Tests to make sure red cycle has not 


hit anything. 


e dead." 

308 GOTO 438 

S18 REM####EDeath of Blue cycleseet 
320 REMARAEARHAEEARAEARAREREERRRELE 
338 MODE {sPEN 3:PRINT" Well 
done red cycle." 

335 LET scred=scred+{ 


348 PRINT" The other player R. 
1,P* 


358 GOTO 430 

568 REM#e#ERDeath of Red cyclettett 
378 REMRREERERASEAREEEERE SESE EREEE 
380 MODE 1:PEN 2:PRINT® Well d 
ane blue cycle.” 

385 LET scblue=scblue+i 

398 PRINT“ The other player RI 
Ps 

488 GOTO 430 

ALD REMRREHERASEREHECEREEEEEERES 

420 REN##HHA#END OF GAHERHEREEEH 

430 RENSEEESSEERESEERETIEEECEES 

434 LOCATE 18,81PEN 1:PRINT"SCORE* LOC 
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machines of death the crowd goes 
quiet as if in an act of respect for the 
loser. 

The game of Tronn Cycles is a 
simple one. The two opposing forces, 
each in their Tronn Cycles, race 
around the playing area. Each cycle 
leaves a deadly net of high-powered 
laser light in its wake. If either fighter 
crashes into it he immediately ceases 
to exist. 

A recent development in the game 
is the random maze, which is said to 
be the most deadly of the three 
available, the others being open plain 
and maze of death. 

Each fighter should keep a wary 
eye on the fuel level because if it 
reaches zero both players will be 
exterminated. Both cycles have the 
same amount of fuel and travel at the 
same speed so they will run out at the 
same time. 

Finally, each player should not stay 
on the same part of the screen for too 
long as this gives the opponent time 
to trap the other Tronn Cycle. 


ATE 18,9:PEN 3:PRINT"sesa=" 

435 LOCATE 11, 11:PEN 2:PRINT*BLUE....,. 
veseees BCDIUE 

436 LOCATE 11,15:PEN S:PRINT"RED...... 
viseeve Schad 

440 LOCATE 13,15:PEN 2:PRINT“Play agai 
n(Y¥/N} 2" 

44) IF INKEY$<>"" THEN BOTO 441 

442 IF INKEY$="" THEN GOTO 442 

443 IF INKEY(43)=@ THEN GOTO 458 

444 IF INKEY(46)=@ THEN INK @,1:PAPER 
QiPEN 1:CLS:BORDER {:END 

445 GOTO 441 

458 LOCATE 13,17:PEN {:PRINT"Change Ha 
ze(¥/N)?* 

451 IF INKEY$<>"" THEN GOTO 451 

452 IF INKEY$="* THEN GOTO 452 

453 IF INKEY(46)=@ THEN GOTO 468 

454 IF INKEY(43)=@ THEN GOSUB 498:GOTO 
68 

455 GOTO 451 

468 GOSUB 638 
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45 ON maze GOSUB 940,990, 1050 
470 GOTO 48 

490 RENF#HERE*ChOOSe Screenteerete 

908 INK 1,24:CLS:PEN 2:LOCATE 12,4:PRI 
NT Mena menennn mae nne "SPEN 3sLOCATE 12 
yOtPRINT'THE PLAYING FIELDS" 


928 LOCATE 1,9sPRINT" 
ype vf battle field." 
530 JCATE 14,12:PEN 1:PRINT"1.OPEN PL 
Alt 

S4@ LOCATE 14,14:PEN 3:PRINT"2.MAZE OF 
DEATH" 

550 LOCATE 14,16:PEN 2s:PRINT"3, RANDOM 
MAZE" 

368 LOCATE 18, 20:PRINT"Enter number 1, 
eeUre or 

57@ LOCATE 10,21:PEN 3:PRINT STRINGS (2 
Papi ae) 

580 LET kS=INKEY$ 

598 IF k$="1" THEN LET maze=1;GOSUB 63 

O:GOSUB 948s RETURN 

60@ IF k$="2" THEN LET maze=2:GOSUB 63 

@:GOSUB 980: RETURN 

610 IF k$="3" THEN LET maze=3;GOSUB 43 

O:G0SUB 1050:RETURN 

628 GOTO 388 

650 RENEHHHRHEVARTABLESH HH Ha He 

640 MODE @ 

660 LET ti=999 

670 LET xl=24sLET x2=319:LET yis35QsLE 
T y2=319 

6BO LET x3=i:LET x4=O:LET yS=~1:LET y4 
=f 

708 RETURN 

T1O REM#EHREEINSTRUCT IONS He HeR eS 

720 MODE Li INK @,QsINK 1,24:INK 2, 1131 
NK S,G:CLS:INK @,24:PEN 2:CLS:BORDER 3 
730 PRINTsLOCATE 15,2:PEN 2:PRINT"---~ 


There are 3 t 


74@ PEN 1:LOCATE 15,3:PRINT"TRONN CYCL 
es" 
738 LOCATE 15,4sPEN 3:PRINT"---~------ 


H 


76Q LOCATE 12,5:PEN 3:PRINT"By Aramell 
o Chapman" 

765 PEN {:PRINTs PRINT 

77 PRINT" The year is 3075 and it is 
the 108th Tronn Cycle championships 

As two heroic gladiators you enter the 
games in search of fame and glory.How 
ever in this game there is only one wi 
fnert it ® 

786 PRINT" Each player must use both 

Skill and judgement to outwit corner 
and trap his opponent." 

785 PRINT" Bewares-make sure that you 
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don’t fall into the same trap as you 
have laid for your eneny." 

790 PEN isPRINT TAB(16);"---=~---= "TPE 
N SsPRINT TAB(14);"GOOD-LUCK":PEN 2:PR 
INT TABS) eee enn ee 
800 LOCATE 1,22:PEN 3:PRINT STRING$(40 
py" ")SLOCATE 9,23:PEN 2:PRINT"Enter <S 
PACE> to continue. "sLOCATE 1,24:PEN I: 
PRINT STRINGS (48, "=") 
810 IF INKEY(47)<¢>@ THEN GOTO 810 
828 CLS:PRINT:PEN 1 
848 LOCATE 14,5:PEN 3:PRINT*-------- we 
LOCATE 16,4:PEN isPRINT"CONTROLS" 
B45 LOCATE 1,8:PEN SsPRINT STRINGS (40, 
CHR (184)) 
850 LOCATE 16,7:PEN 2:PRINT"---~--~- g 
PEN 2:LOCATE 3,9:PRINT "BLUE PLAYER 
"SSPEN SPRINT TAB(24);"RED PLAYER" 
855 LOCATE 1,15:PEN 2:PRINT STRINGS (4@ 
sCHR$ (154) ) 
868 LOCATE 3,10:PEN 1:PRINT"=--- ----- 
“"ILOCATE 26, L0:PRINT'=-- ------ H 
870 PEN 2:PRINT:PRINT "LEFT-‘Z' RIGHT- 
Xo"SePEN SePRINT"  LEFT-"1' RIGHT-'2 
BBO PEN 2:PRINT:PRINT " 
‘C'";EPEN S:PRINT" 


UP="F° DOWN- 
UP='6' DOWN-'3 


895 LOCATE 1,17:PEN 1sPRINT STRINGS(40 
CHRE(154)):LOCATE 1,19:PEN 3:PRINT ST 
RING$ (4, CHR$ (154) ) 

900 LOCATE 8,18:PEN 2:PRINT"press any 
key to continue." 

910 IF INKEY$<>"" THEN GOTO 910 

915 IF INKEY$="" THEN GOTO 915 

920 GOSUB 498 


938 RETURN 

948 REM#e¢*XOPEN PLAIN#H#RS 

950 CLS: LOCATE 1,1:PEN 3:PRINT’FUEL R 

ENAINING-" 

960 PEN 12:PLOT 0,382, 1:DRAW 639,382,1 
TDRAW 637,8,1:DRAW @,@,1:DRAW @,382,1 
970 RETURN 

980 REM#HEMAZE OF DEATH#44# 

1008 GOSUB 948 

1018 LET g$=CHR$(214)+CHR$ (215) 

1820 LET w$=CHR$(213) +CHR$ (212) 

1030 FOR r=3 TO 24 STEP 4: FOR g=2 TO 
19 STEP 3:PEN 12:LOCATE gyrsPRINT g$sL 
OQCATE qyr+i:PRINT wStNEXT qiNEXT 
104@ RETURN 

1050 REN#HFEHEFRANDOM MAZERHHE RHE 

1878 GOSUB 948 

1088 FOR w=1 TO 1@@:LET p=INT(RND#20)+ 
SELET g&INT(RND#2@)+3:1F p=t@ THEN LET 
pes 

1898 LOCATE p,qiPEN 7:PRINT CHR$(224): 
NEXT w 

1108 RETURN 


Give your fingers a rest... 


All the listings from this month's 
issue are available on cassette. 


See our special offer on Page 77. 


Computing with the Amstrad 


PAVED IN 3D LANDMARKS SUPERB REAL 


ey YOU CAN FLY AROUND TIME SIMULATION 


spauLaTTon 


avAnooln 


FLIGHT 
ginusTio’ MANUAL 
FOR THE 
AMSTRAD 
cre ac4 


Here are some screens from a typical flight showing the view from the cockpit (top half of screen) 
produced as printouts of the actual simulator. 


A real time simulation with 3D graphics uses a massive 64000 x 64000 longitude & latitude flying 
area, making each flight completely different. Developed under pilot instruction to give realistic 
flight effect. The view through the cockpit gives moving 3D graphics. 


Comprehensive instrument panel with moving needle meters & digital displays. 15 aircraft types 
with varying control sensitivities & speeds of between 100 — 500 knots. 


3 runways available for refuelling, take off & landing. Ground and landmark orientation correct with 
all flying attitudes (rolls etc.). 


The3D graphics are still accurate when 
you fly upside down. MYRDDIN SOFTWARE, PO BOX 61, SWINDON, WILTS. 
Telephone: (0793) 40661 


3D landmarks you can fly around. Please send me Flight Simulator(s) by return of post for 
the Amstrad CPC 464 

Comes complete with manual & fully 

detailed chart of landmarks & airfields. 


Joystick or keyboard operation. 
Cheque enclosed for £11.95 (in. P.P.) 
OR Debit my Access A/C No.:- 
If your local dealer doesn’t have it in | 
stock yet, order from us direct. 
For despatch within 48 hrs. 
(usually 24 hrs.). 


OR Telephone through your Access Order. 
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All the 
gen on 


HARACTER Generator is 
IC] a useful utility that allows 

you to re-design any 
individual character to your own 
specifications. In fact you can 
create your own custom made 
character set. 

Facilities are included for rotating, 
inverting and vertical or horizontal 
mirroring your characters. The data 
for your design can be output to the 


character 
generation 


RICHARD CROSKELL shows how to create 


your own custom built character set 


44 May 1985 


screen or printer, and saved or loaded 
from cassette or disc. 

The program displays an 8 x 8 grid 
containing a flashing cursor in its top 
left hand corner. You design your 
characters by filling in the relevant 
cells of this grid using a joystick or the 
cursor keys to move the flashing 
cursor. 

The current position can be set 
using the fire button or Copy key. 
Pressing once more will clear that 
cell. 

As you build up your character it 
will be duplicated in the two small 
boxes to the right of the grid. These 
show you how the character appears 
“life-size” in Mode O and Mode 1. 

When you have finished your 
design, using the [S]tore option (by 
pressing ‘S’) will safely store the 
design in memory. Your design will 
now replace the default character of 
the same number. You can also save 
the character set on tape or disc. 

Make sure you've stored your 
character in memory before trying to 
save it. 

When saving a character set the 
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generator stores it as a file on 
cassette. However this file contains 
more data than just the new character 
set. If you want to create an 
appropriate file for inclusion in your 
own program you must follow this 
three step procedure: 

@ Reset the micro using Esc/Ctrl/ 
Shift. 

@ Load the program in which you 
wish to use the character set and 
make its first line: 


1@ CLS: SYMBOL AFTER 32: LOAD"!", 
42248 


then save the amended program and 
don’t rewind the tape — we'll call this 
the master tape. You're going to put 
the data on the tape after this 
program. 

@ Now insert the tape that contains 


the file of characters saved from the 
generator and run a program consis- 
ting of the lines: 


18 CLS:SYMBOL AFTER 32: LOAD"!", 
42248 
20 SAVE "filename" ,b,42248,1792 


This will load the file into memory. 
When you get the prompt to press 
record and play, put back the 
un-rewound master tape in the 
cassette before proceeding. This will 
then save the character file where you 
want it. 

The options listed below give a lot 
of flexibility when designing charac- 
ters and are displayed continuously in 
the centre of the screen for quick 
reference. To select any option simply 
press the corresponding key. 

[Mirror — Allows the contents of 


the design grid to be mirrored about 
its horizontal or vertical axis. Select 
[V] or [H] when prompted. 

[Rlotate — Rotates the contents 
of the grid by 90 degrees. 

[I]nverse — Inverses the grid 
contents, i.e. any cell that was set will 
be clear and vice versa. In more 
simple terms it produces a negative of 
the original contents. 

[C]lear — Clears the design from 
all three boxes. Don’t forget to store 
the contents if you want to save the 
design, otherwise the data will be lost 
when this option is used. 

[V]iew — Allows you to retrieve 
any of the characters (codes 32 — 
255) from memory and place its form 
on the design grid for examination or 
modification. 

[D]ata — Produces the eight 


character bytes in decimal form, to be 
directed to the [S]creen or [P]rinter 
when prompted. Further prompts, 
[C]haracter, [NJext and [Flinish allow 
you to select the order in which you 
wish to view them. 


10 REM HHHHERAHERSESER HEHEHE REREHE 
15 REM # * CHARACTER GENERATOR + # 
20 REN # BY Rid. CROSKELL + 
22 REM #(c)Computing with the Aastrad+ 
D5 REM SERERHRHHEHEREEREEARHERER EEE EE 
3@ MODE tr INK O,1QsINK 1,@sINK 2,2031N 
K 3,15, 18PAPER @:BORDER 18 

35 CALL &BB48:1F PEEK(385@0)=255 THEN 

45 ELSE POKE 38500,255 

4@ SYMBOL AFTER 32:MEMORY 37999: SPEED 

INK 15,15 

45 DIM gri(8,8) ,ro%(8,8) res (224) ,bydl 
A) equtelsgyZ=limenc=b94708 

50 f2O:p=Osmx (42286: ax 2h2054: my lh2278: 
my2Z=278:KEY 140,""sGOSUB 710 

55 PEN #5, 3:LOCATE #5,qxA,gya:PRINT #5 
sCHR$ (255) 3 

6@ kKS2UPPERS(INKEY$)11F k#="" THEN 68 

65 IF kS=CHR#(240) OR JOY(O)=1 THEN 95 
7@ IF k$=CHR$(241) OR JOY(B)=2 THEN 11 
a 

75 IF kS=CHRE$(242) OR JOV(B)=4 THEN 12 
5 

80 IF k$=CHR$(243) OR JOY(@)=B THEN 14 
a 
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B85 IF k¥=CHR$(224) OR JOY(B)=16 THEN 1 
ak 

90 ON INSTR("RIVCTSEMD" ,k$) GOTO 178,2 
5, 230,290,310, 438,485,585, 555:6070 68 
95 IF oydel THEN PRINT CHRS(7):1G0T0 6 
@ ELSE LOCATE #5,9x%,qy4 

100 IF gr&lgxd,qydiei THEN PEN 45,0 EL 
SE PEN 45,2 

105 PRINT #5, CHR#(255);sgyd=qy4-1: 6070 
55 

110 IF gyd=8 THEN PRINT CHRS(7);:6070 
6@ ELSE LOCATE #5,qx%,qy% 

{15 IF grd(gxd,gy%)=1 THEN PEN 45,0 EL 
GE PEN #5,2 

120 PRINT #5, CHRE¢(255) ;:gyd=oyeti: 6070 
59 

125 IF gxk=1 THEN PRINT CHRE(7); 36070 
6@ ELSE LOCATE #5,qx4,gy4 

130 IF gra(gx%,qy%)=1 THEN PEN 45,8 EL 
SE PEN 45,2 

135 PRINT #5, CHR$(255) s1qx4eqx%-1: 6070 
55 

140 1F gxZ=8 THEN PRINT CHR$(7);:80T0 
6@ ELSE LOCATE #5,9x%,gy4 

145 IF grZ(oxk,oys)=i THEN PEN 45,0 EL 
SE PEN 45,2 

158 PRINT #5,CHR$(255) 5 :qxdeqxatis GOTO 
Bh 

155 IF grA(gxk,qys)2i THEN ord(qxé,gyd 
Ve@:p2Q:ELGE gra(qxz,qyé)alipal 

168 PLOT antd+(gnd#4)-2,ay14-(gyse2) .p 
TPLOT ax iit (greed) payla-(gykt2) 

165 PLOT ax2%+(gxd#2) ,my2h-(gyee2) :G0T 
0.48 

170 FOR th=t TO 6:FOR gf=8 TO 1 STEP - 
{3cheABS(gt-9) 

175 roa(th chbeqréiga, th) iNEXTENEXT 
180 FOR th=l TO G:FOR ghal TO Asgra(th 
394) =rok(th gh) 

185 IF gr4(t%,g4)21 THEN PEN #5,Q:p=1 

ELSE PEN 45, 2:p=0 

190 LOCATE #5, th, gdsPRINT #5, CHRE (255) 
pEPLOT mx li+(tA#4)-2,my12-(g4#2) ,p 

195 PLOT mxla+(t4e4) my lh-(g282) sPLOT 

ax 244(thH2) my 2h-(gh#2) NEXT NEXT 

280 gxdtelsgyt=1:G070 55 

205 FOR th=1 TO 8:FOR gt=1 TO 8:LOCATE 
#5,th,94 

218 IF gri(th,gz)=1 THEN gra(té, gh) sb: 
ta2:psQsELlSE gra(ta,gh)alitaspal 

215 PEN #5,f2PRINT #5, CHR$ (255); 1PLOT 
mela+(the4)-2,aylh-(ghe2) yp 

220 PLOT mxide (tied) ayld~ (#2) sPLOT 
AX ZK+ (CHEZ) sayZe~-(ght2) 

225 NEXTINEXTigxABligyz=i:G0T0 35 
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238 CLE #2:LOCATE #2,2,2:INPLT #2, "Vie 
wewhich character (32-255]-" ,char$ 

235 IF VAL(char$)<32 QR VAL (char$) >255 
THEN 238 ELSE CLS #2 

248 vaieVAL(char$):vis(vi-32) #92FOR tao 

B TO 7ebyd (tht) PEEK (39000+vX+th) sNEX 
1 


245 FOR t#=1 10 Sird=lsFOR gi=7 10 8 8 

TEP =I 

250 IF bys(th)>22%q% THEN 240 

255 grd(r’,th)=@:G0T0 265 

268 byt th=byh(td)-2%gdsqrélr ath) ei 

265 rherd+leNEXTeNEXTsFOR th=l TO 8:FO 

R gt=i 10 8 

270 IF gré(th,ga)=i THEN PEN #5,8:p=i 

ELSE PEN #5,2:p=@ 

275 LOCATE #5,t%,gA:PRINT #5, CHR$ (255) 

pEPLOT axld+(t2#4)-2,myl2-(g282) ,p 

200 PLOT mx iat (t2#4) ymyia-(gae2) PLOT 

ax 2a (th#2) ,ay2h-(gh#2) 1NEXTENEXT 

285 qxdeiigyt=1sLOCATE 42,9, 2:PRINT #2 
;"## Information area ##°:G0T0 55 

290 LOCATE #5,1,1:PEN @5,2:PRINT 45,7 

RING$(64 255) 5 

295 FOR t#26 TO 9sLOCATE 84,4, tXsPRINT 
#4, STRINGS (4,32); 

SOO LOCATE 44,19, t2:PRINT #4,STRINGS(4 
192) ¢ENEXT 

305 ERASE grd:DIM grA(8,8)sgxeeliqysal 

:G0TO 35 

31@ CLS @2:PEN #2, 1:LOCATE #2,2,1:PRIN 

T #2,"Are you sure you have (Sltored a 

way" 

S15 LOCATE #2,2,2:PRINT @2,"the design 
, after you finished it ?" 

$28 LOCATE 42,18,3:PRINT #2,"Yes or No 
{Y or N).* 

325 kSaUPPERS(INKEY$) iF k#="¥" OR k$a 
"N" THEN 33@ ELSE 325 

350 ON INSTR("YN",k$) GOTO 335,425 

335 CLS #2:LOCATE #2,4,2:PRINT #2, "Sav 

e or Load Characters (8 or L)" 

348 kSsUPPERS(INKEV$): IF k$="S" OR k$= 

"L" THEN 345 ELSE 348 

345 IF k$="S" THEN 390 

358 CLS @2:LOCATE #2,2, 2: INPUT #2, "Fil 

ename [9 HaxJ-" names 

$55 IF LEN(name$)>8 THEN 358 ELSE CLS 
W2:names=UPPERS (naae$) 

368 LOCATE #2,8,2:PRINT #2,"Press PLAY 
, then any key": WHILE INKEYS$="":WEND 
$5 CLS #2LOCATE #2,7,2:PRINT #2,"Loa 
ding [";name$;"]." 

378 LOAD"! "+name$:OPENIN"! "+nane$+*. CH 
R"sFOR th=i TO 224sINPUT #9, ren(ta) NE 


KT: CLOSEIN 

375 CLE #2:LOCATE #2,9,2:PRINT @2,"Pro 
gram now in aemory." 

380 FOR t=1 10 3BBBiNEXTICLS #2:LOCATE 
#2,9,2 

585 PRINT #2,"## Information area #4": 
GOTO 48 

370 CLE #2:LOCATE #2,2,2:INPUT #2, "Fil 
ename (8 MaxJ-",nane$ 

395 IF LEN(name$)>8 THEN 398 ELSE CLS 
#2:nameSsUPPER$ (names) 

408 CLS #2:LOCATE #2,6,2:PRINT #2, "Pre 
ga REC+PLAY, then any key” 

405 WHILE INKEY$="":WEND:CLE #2:LOCATE 
#2,7,2:PRINT #2,"Saving C";name$;"1." 
418 SAVE"! "+name$,b, 39008, 1792:0PENOUT 
"TSenamest+" CHRsFOR t221 TO 224: WRITE 
#9 rek(th) sNEXT 

415 CLOSEQUTSCLS #2:LOCATE #2,12,2:PRI 

NT #2, "Saving complete" 

420 FOR t=l 10 38a: NEXT 

425 CLS #2:LOCATE #2,9,2sPRINT #2, a# 
Information area ##":GOTO 48 

438 CLS #2:LOCATE #2,4,2:INPUT #2,"Ent 
er character code (32-2551-",char$ 

435 IF YAL(char$)<32 OR VAL(char$) >255 
THEN 43@ ELSE CLS #2 

448 vi=VAL(char$)i:IF red(va-31)28 THEN 
465 ELSE CLS &2 

445 LOCATE #2,2,2:PRINT #2, "Already be 
en redetined, Change [Y/NI° 

458 kS=UPPERS (INKEVS):1F k$a"¥" OR k$e 
"N" THEN 455 ELSE 458 

455 IF k#="Y" THEN 465 ELSE CLS #2:L0C 
ATE #2,9,2 

460 PRINT 4#2,"## Information area #4": 
GOTO 68 

465 GOSUB 695: vi=(vi-32)48:FOR the TO 
7 

470 POKE 39BOB+vAet% byd(t2+1) NEXTICL 
S#2:LOCATE #2,4,2 

475 PRINT #2,"Character has been store 
d away."srea(va/O+1)aisFOR tei TO 3088 
480 NEXTSCLS #2:LOCATE #2,9,21PRINT 82 
:## Information area ##":G0T0 48 

405 CLS @2:PEN #2,1:LOCATE @2,18,2:PRI 
NT #2,"Exit Generator CY/NI"" 

490 kSeUPPERS(INKEY$):1F k$="Y" OR k$= 
"N® THEN 495 ELSE 498 

495 IF k$="¥" THEN MODE 1:PRINT*Progra 
m aborted":END 

506 CLS #2:LOCATE #2,9,2:PRINT #2, "ee 
Information area ##"360T0 68 

905 CLS #2:LOCATE #2,3,2:PRINT #2, "Ver 
tical or Horizontal Plane (V/H)" 
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SI kS=UPPERS(INKEYS$):1F k$e"V" OR kte 
"H" THEN 515 ELSE 510 

515 IF k$="V" THEN 525 ELSE FOR tie8 T 
O 1 STEP -L:FOR gt=i TO 8 

528 rod(gh, th) sqrkiqa, ABS (th—-9) ) sNEXTe 
NEXT:GOTO 530 

525 FOR th=8 TO 1 STEP -1:FOR gh=1 10 
Grronlth ga) eqre(ABS(th-9) gh) sNEXTINE 
XT 

538 FOR th=i1 TO B:FOR gt=l TO Bigra(th 
*gelsroe(tZ,g4):LOCATE #5,tk,g% 

535 IF gré(th,gt)=1 THEN PEN #5,8:p21 
ELSE PEN 45, 2:p=0 

548 PRINT #5,CHR$(255) s:PLOT ax lat (t+ 
4) ~2,myl%-(g%#2) yp 

S45 PLOT mxid+(t2#4) payle~(gh#2) sPLOT 
Ox 2h (£242) »my2h=(gh#2) NEXTENEXT 

558 CLS #2:LOCATE #2,9,2sPRINT #2, "#* 
Information area ##":60T0 55 

555 codez=32:CL§ #2:LOCATE #2,7,2:PRIN 
T #2,"To Screen or Printer (5/P)" 

568 kSsUPPERS(INKEYS):1F k$2"S" OR kg= 
“P* THEN 565 ELSE 54a 

565 IF k$="P" THEN 615: ELSE CLS #2:F0 
R td=@ TO 223:1F red(tk+1)2@ THEN 535 
578 CLS #2:FOR th=(codex-32) TO 223:1F 
rea(tz+1)=@ THEN 585 

575 CLS #2:LOCATE #2,1,2:PEN #2,8:PRIN 
T #2,STRE(Ch+32) ::PEN #2, 1:FOR gé=Q TO 
7 

588 ak=(t2#8) spe=PEEK (39000+a%+g4) PRI 
NT #2,STRS(pd)ssNEXT:G0TO 99@ 

585 CLE #2:LOCATE #2,13,2:PEN #2,1:PRI 
NT #2,STR$(t2+32) ; "-UNCHANGED" 

59@ LOCATE #2,2,3:PEN #2,1:PRINT #2,"C 
F] Finished (NJ Next (C] Character" 
595 kSSUPPERS$(INKEYS) s1F k$="F" OR kg= 
"N" OR k$="C" THEN 688 ELSE 595 

600 ON INSTR(*FNC" ,k#) GOTO 675,605, 61 
a 

685 NEXT:60T0 475 

618 GOSUB 680:G0T0 578 

615 CLS #2:PEN #2, 1:LOCATE #2,3,2:PRIN 
T #2,"Put printer on line, press any k 
ey" 

620 WHILE INKEYS=""sWEND: ‘FOR t%=@ 10 
223:1F red(tu+1)=@ THEN 580 

625 FOR th=(coded-32) TO 223:1F rez(ts 
+1)2@ THEN 445 

638 CLS #2:LOCATE #2,1,2:PEN #2,8:PRIN 
T $2, STRE(tH+32) 5: PEN 42,1 

635 PRINT #8, "SYMBOL" ;STR$(td+32) 3 FOR 
gh20 TO 7:ak=tded: pXePEEK (39GOG+artgh 
) 
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A);sNEXTSPRINT #8,CHR$(13)s60TO 650 
645 CLS #2:LOCATE #2,13,2:PEN #2,1:PRI 
NT #2,STR$(¢4+32) ;"-UNCHANGED® 

658 LOCATE #2,2,3:PEN #2, 1:PRINT #2,"C 
Fl Finished (NJ Next (CJ Character" 
655 kSsUPPERS(INKEYS): IF k$="F" OR k$= 
"NY OR k$="C" THEN 66@ ELSE 655 

660 ON INSTR("FNC",k$) GOTO 675,665,67 
a 

645 NEXTs60TO 675 

678 GOSUB 68@:60T0 425 

675 CLS #2:LOCATE #2,9,2sPRINT #2, “¥# 
Information area ##":GOTO 95 

6BR LOCATE #2,1,2:PRINT #2,CHRS(18) 43 
OCATE #2,2,2:PEN 42,1 

6B5 INPUT #2,"Enter start code (32 to 
255) “, codes 

698 IF coded<32 OR code%>255 THEN 680 
ELSE RETURN 

695 FOR th=l TO Giqh=OszZ=BsFOR gh=8 T 
O 4 STEP =i 

7BB IF grd(ga,thi<>1 THEN 785 ELSE zz= 
2E42%qh 

7O5 qheqd+i:NEXTsby%(th) 224: NEXTsRETUR 
N 


71@ RESTORE 87O:FOR th=@ TO 18sREAD ds 

POKE meadtt% dsNEXT:CALL mend 

715 SYMBOL 255,254,254, 254, 254,254,254 
2048 

728 WINDOW #1,2,39,15,19sPAPER #1,2:CL 

§ a 

725 WINDOW #2,2,39,22,24sPAPER #2,2:CL 
§ #2 

730 WINDOW #3,2,11,2,f1:PAPER #3,2:CL8 
a3 

735 WINDOW #4,15,39,2,12sPAPER #4, 2:CL 
§ #4 

748 WINDOW #5,3,10,5, 10:PAPER #5,2:CL8 
45 

745 PEN (sLOCATE 3,20:PRINT STRINGS (38 
287) LOCATE 3,25:PRINT STRING$(38, 287 
4 

758 LOCATE 3,12:PRINT STRINGS (10,207): 
LOCATE 16,13:PRINT STRINGS (25,287) 

755 FOR th=i6 TO L9:LOCATE 40,t%:PRINT 
CHR$ (207) sNEXT 

768 FOR t##3 TO iL:LOCATE 12,t%:PRINT 
CHR$(207) NEXT 

765 FOR th=3 TO 12:LOCATE 48,t2:PRINT 
CHRS (207) :NEXT 

770 FOR t##23 TO 24sLOCATE 40,t2:PRINT 
CHR$ (207) NEXT 

775 FOR th=31 TO 159 STEP 1SsPLOT tz,3 
68, 1:DRAWR @,-128: NEXT 


Utity 


To 


jth: DRAWR 128, Q:NEXT 

785 PLOT 15,15:DRAWR G18, 0:DRAWR @, 50: 

DRAWR -510,@:DRAWR @,-50 

790 PLOT 15,384;DRAWR 142,0:DRAWR 8,-1 

G2:DRAWR -162,0:DRAWR @,162 

795 PLOT 15,94:DRAWR 410, Q:DRAWR @,82: 

DRAWR -61@,Q:DRAWR @,-82 

BOO PLOT 624, 384:DRAWR -402,0:DRAWR B, 

“178: DRAWR 402,@:DRAWR @,178 

BOS PLOT 238, 368:DRAWR 378,@:DRAWR Q,- 

L:DRAWR -378,0:DRAWR @,18 

818 PLOT 238, 336:DRAWR 378, 0:DRAWR @,- 

{8:DRAWR -370,0:DRAWR @,18 

B15 PLOT 270, 304:DRAWR 66, 0:DRAWR @,-6 

OF DRAWR -46,0;DRAWR 8,44 

B20 PLOT S18, 304:DRAWR 46, 0:DRAWR @,-6 

6:DRAWR -66,0:DRAWR @, 44 

825 LOCATE #5,1,f:PRINT @5,CHR$(22)+CH 

RS(L) 

B30 PEN #4,1:PAPER #4, 8:LOCATE #4,2,2: 

PRINT #4," #CHARACTER GENERATOR: " 

B35 LOCATE #4,2,4:PRINT #4," MODE @ [8 

IZE§] AODE 1 " 

B48 FOR th=6 TO 9sLOCATE 44,4, t%sPRINT 

#4," r 

B45 LOCATE #4,19,tK:PRINT #4," 9 "INE 

XT 

BSO PEN #2,1:LOCATE #2,9,2:PRINT #2,"% 

* Information area #4" 

B55 PEN #1, 1:LOCATE #1,3,2:PRINT #1,"C 

I] INVERSE [R] ROTATE (V] VIEW" 

B40 LOCATE #1,3,3:PRINT #1,"(C) CLEAR 
[9] STORE (E] EXIT* 

B65 LOCATE #1,3,4:PRINT #1,"CM) MIRROR 
(T] TAPE (DJ DATA":RETURN 


870 DATA &01,&00,807,421,&00,805,811,% 
58,498 ,&7E 

B75 DATA &12,80B,&23,&13,878 4B! ,&20,& 
F7,4C9 


Give your fingers a rest... 


All the listings from this month’s 
issue are available on cassette. 


648 PRINT #2,STRE (ph) ;:PRINT ¥6,STRE(p 788 FOR tu=368 TO 240 STEP -1:PLOT 31 peesou) spaclelenemaouitc cma 
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You're never too young to 


| play a Magical Adventure on 
the Amstrad CPC464... 


av enture 


uter 
The cont Ss ce 
of | che Fros 3 
an ;cation 


\ 

pur’ 
xabas? 

pa Da 


Please send me the complete Magic Sword pack for the 
Amstrad CPC464 containing storybook and cassette to: 


Based on the style of the 
classic computer adventures — 
but written so that even small 
children can learn to find their 
way around, encouraged by 
colourful graphics and 
exciting sound effects. 


The pack contains a 48-page 
full colour storybook 
PLUS 
a full length multi-location 
adventure on cassette 
for only 


£8.95 Fos: tree 


Read the book 
— then play 
the game! 


Amstrad 
CPC464 


[]| enclose my cheque for £8.95 
payable to Database Publications 


| (Or debit my Agcess/Visa card: | 
Name 

| Address Ne; | 

J Signed \ 

SEND TO: Adventure offer, Europa House, 68 Chester Road, Hazel Grove, Stockport SK7 5NY CA5 


HIS month we use our 


eT Amstrad to draw trees. 
Starting with one point, or 


node, at the bottom of the screen 


we draw lines to the left and right. 

The ends of each of these lines also 
split into two and so on. At each split, 
the changes in the x and y coordinates 


are constant, resulting in a regular 


pattern. 


It’s a simple idea, but not 
particularly easy to program. Trees 


shows one 


more efficient? 


Figure !: 


40 


50 


60 


X—xoffset, 
¥+ offset) 


method. Can you make it 


Points and levels 


(X+-Xxoffset 
Y+Yoffset) 


REMS that identify the program. 

The variable max/eve/ selects the number of 
levels (each line splits at a level). Have a look 
at Figure | to see how the levels and the 
number of points on them are related. 
Horribly, this sets up a two dimensional array 
to hold all the possible x coordinates of the 
nodes. This is terribly wasteful as not all the 
levels have the maximum number of points. 
This array makes room for lots of 
non-existent points. Can you think of a better 
way of doing things? 

Holds values for the changes in x and y 
coordinates for each succeeding level. 
spread just allows a little bit of variance in 
the way the lines split. Try giving it non-zero 
values and see what happens. Also vary 
xoffset and yoffset. Why not have them 
changing randomly? 

Sets the coordinates for the initial point on 
level O. 
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80-140 


90-130 


100 


120 


150 


Amstrad Analysis 


Trees | 


Analysed by 
Trevor Roberts 


Num, b, 

Eve, 1 

“Ara bio, 
Alspio, {° 


er Of 


Form aFOR...NEXT loop which cycles once 
for each of the levels. Each time the 
coordinates for all the nodes on that level will 
be calculated. 

Make up a second loop which does the job of 
working out all the coordinates of the nodes 
of a level and draws the lines joining them. If 
you look at Figure | you should see that 
there are 2 to the power of /eve/ points on 
each level. 

Ensures that the graphics cursor returns to 
the appropriate node. Leave it out and see 
the result. 

Draws the line to the left from the node. 
Looking at Figure | you'll see that all the odd 
numbered points are on the left hand of a 
split. The MOD checks this and draws a line 
to it from the node below. 

Deals with the right splits. Figure || shows 
how the coordinates relate. 

An endless loop that keeps the ready 
message at bay. 
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In Part V of our series 


GEOFF TURNER and 
MICHAEL NOELS 
move away from 
the windows and 
concentrate on 

the graphics screen 


aving thoroughly explored 
the text screen and its 
associated windows in 


the last couple of articles, we can 
now turn our attention to the 
graphics screen. 

As with the text screen, at 
switch-on the graphics screen covers 
the whole screen area (save, of 
course, the border area). It can be 
used with any of the three screen 
modes. 

The first thing we need to become 
familiar with is the graphics screen 
coordinate system, as shown in 
Figure |. We've already met one 
system of coordinates, those of the 
text screen. However these are 
designed primarily to cope with the 
positioning of characters on the text 
screen, a task the system handles 
admirably. 

We need more precision when 
specifying points on the graphics 
screen. So for graphics purposes we 
divide it into a 640 by 400 grid. We 
specify a point by giving its horizontal 
position first, followed by its vertical 
position — much as you learned at 
school when doing graphs. 

Note that the graphics origin is 
situated at the bottom left hand 
corner of the screen and is identified 
as (0,0). The X axis (horizontal) ranges 
from O to 639 and the Y axis (vertical) 
ranges from O to 399. 

This is completely different from 
how things work on the text screen, 
where the origin is at the top left of 


Plotting | imaginary 
points with an . 


invisible cursor 


the screen and the numbering starts 
at 1. 

The figures for the graphics screen 
apply whichever mode we happen to 
be working in, and the physical 
location of any graphics point will 
therefore be the same in every mode. 
That is (0,0) will always be at the 
bottom left of the screen and 
(639,399) will always be at its top 
right. 

Let's try drawing some lines on the 
screen. To do this we imagine 
something called the graphics cursor, 
which is invisible yet occupies a 
specific point on the screen. 

Initially when we switch on or 
reset the computer the graphics 
cursor will always reside at the origin 
point (0,0). We can use the DRAW 
command to draw a line from the 
cursor’s present position to any other 


Figure /: Graphics screen coordinates 
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point on the screen. For instance if we 
enter the command: 


DRAW 639,399 


a line will be drawn diagonally across 
the screen from position (0,0) to 
(639,399). 

We can also position the graphics 
cursor at any point on the screen, 
without actually drawing a line. The 
command to do this is MOVE, and itis 
used with the same coordinate 
system as the DRAW command. So 
we may either draw from the cursor’s 
Cutrent position to any other, or 
alternatively we can simply move the 
cursor between the two points. 

MOVE is used just like the DRAW 
command, by specifying X and Y 
coordinates. So the command: 

NOVE 639,399 


will move the cursor across the 


639,399 
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screen to the top right hand corner, 
but this time no line will be drawn. 

Time to put theory into practice 
with some simple programs. Program 
| draws our diagonal line again, 
followed by a second line down the 
right hand edge of the screen, and 
finally a third line back to the starting 
position to form a triangle. 

By the way, we have included in this 
program a dummy last line to prevent 
the text cursor and ‘‘Ready’’ message 
reappearing on the screen after the 
drawing is completed. This helps to 
keep a tidy graphics screen for the 
purpose of these demonstration 
programs. Of course you will need to 
press Escape twice to exit the 
program. 

Now to illustrate how the MOVE 
command is used, change line 40 to: 


40 MOVE 639,08 


When you now run the program 
you will see that the triangle is 
incomplete, as we have only moved 
the cursor down the right hand side of 
the triangle, instead of drawing a line. 

Let's try a more complex shape 
now. Program II forms a rectangle, 
with intersecting corner to corner 
diagonals as shown in Figure II. See 
how we have used a combination of 
MOVE and DRAW commands to 
produce this shape. 

Of course this shape cannot be 
produced using DRAW commands 
alone (without drawing over some 


10 REM PROGRAM I 
20 NODE 1 
38 DRAW 639,399 


40 DRAW 639,0 
58 DRAW 0,0 
6@ GOTO a@ 


Program | 


1@ REM PROGRAM 11 
20 NODE 1 

30 DRAW 639,399 
4a DRAW 639,0 

50 DRAW 0,0 


68 DRAW 8,399 
70 DRAW 639,8 
80 MOVE 0,399 
90 DRAW 639,399 
1@8 GOTO 10a 


Program I! 
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Figure //: Output of Program I/ 


639,399 


BI9,299 


0,250 


0,0 


Figure I/1: Output of Program /1V 


lines twice), so we need to throw in 
the occasional MOVE command to 
complete the shape. 

By way of an exercise, see if you 
can reproduce the envalope shape 
shown in Figure III using only DRAW 
commands and no MOVE com- 
mands. It’s something that we have 
all tried to do at some time with pen 
and paper, but now we can attempt it 
with a computer. We promise you it 
can be done! 

Programs | and II have used Mode 
1 to draw the shapes, but we can also 
use the other two Modes, O and 2. 
You'll remember that when we were 
dealing with the text screen, the 
mode controlled the number of 
characters we could print across the 
screen. The mode command also has 
an effect on the graphics screen, but 
in a slightly different way. Change line 
20 in Program II to: 


20 HODE @ 


and run the program again. As you 
will see, the shape is drawn in exactly 
the same way, and it occupies the 
same position and area on the screen. 

You may have noticed however 
that the drawn lines appear slightly 
thicker than when we used Mode 1. 
The diagonal lines appear to have a 
stepped effect instead of appearing 
as a smoother straight line. 

This is because Mode O uses lower 
resolution graphics, which appear 


639,250 


639,0 


coarser than the medium resolution 
graphics of Mode 1. When we use a 
higher resolution screen mode the 
individual points are much smaller 
and the lines appear thinner. 

If we want to use really high 
resolution graphics then we can 
select Mode 2. Try using Mode 2 in 
Program II and see the effect of using 
the high resolution screen. 

Mode 2 allows us to create 
drawings with much finer detail, but 
as you might expect we have to pay 
the price for this in terms of colour. 

Remember how the mode restric- 
ted our use of colour on the text 
screen? Unfortunately the same rules 
apply to using colour on the graphics 
screen. 

The high resolution graphics of 
Mode 2 are only available in two 
colours. Therefore if we consider one 
colour for the background we can 
only really draw lines in one other 
colour. Of course we can select 
various colours from the 27 available, 
just like we did with the INK 
command in previous chapters. 

Mode O can be used to produce 
multicoloured drawings in 16 colours, 
but we lose the fine detail of the 
higher resolution screens. 

So it’s really a case of choosing the 
best mode for your particular 
application. 

We measure screen resolution in 
pixels, each being a separate dot of 
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MODE 


NUMBER PIXELS 


160 
320 
640 


HORIZONTAL 


Table 1: Mode — pixel relationship 


colour on the screen. The more of 
these dots you can cram onto the 
screen the finer the lines we can 
draw, the better the resolution. 

Table | shows the relationship 
between the screen resolutions. You 
can see that the vertical resolution is 
always 200 points or pixels, while the 
horizontal resolution varies according 
to the mode. 

Notice that one pixel doesn't 
necessarily correspond to one screen 
coordinate point. Sometimes neigh- 
bouring screen coordinate points 
have to share a pixel. The more points 
sharing a particular pixel the less the 
resolution will be. 

However the important point to 
remember is that the coordinates 
used in DRAW and MOVE commands 
are always O to 399 vertically, and O 
to 639 horizontally, regardless of the 
mode selected. This may seem a little 
confusing at first, but you will soon 
find that it works out much easier just 
using one set of coordinates instead 
of the three sets shown in Table I. 

Just to make sure that you have 
grasped the effects of different 
modes, enter Program III. This steps 
through each mode and draws a line 
to the centre of the screen. Points to 
note are that the same coordinates 
are used for each mode, and that the 
thickness of the line varies with each 
mode. Line 60 simply introduces a 
short delay between each change. 

So far all our lines have been 
drawn in bright yellow on a blue 
background. These are the normal 
default colours whenever we switch 
on the computer. Let's try introducing 
a change of colour into our line 


— 


1@ REM PROGRAM ITI 

28 FOR resolution = @ TO 2 

$8 MODE resolution 

4@ PRINT"NODE “sresolution; 
58 DRAW 328,200 

6@ FOR delay = 1 10 20Q0:NEXT 
70 NEXT resolution 


82 GOTO 20 
Program II/ 


VERTICAL 
PIXELS 


200 
200 
200 


drawing. 

In the previous examples we didn’t 
actually specify any colours, and so 
the computer assumed that we just 
wanted to draw in the default colour. 
If we wish to change the drawing 
colour we tell the computer by adding 
a third parameter after the DRAW 
command. 

Reset the computer, and enter the 
following commands: 


CLE 
DRAW 639,399,2 


Now our diagonal line will appear 
in bright cyan. You see, the third 
number after the DRAW command 
tells the computer which graphics 
pen to use. After issuing this 
command any further lines will still be 
drawn in bright cyan until we specify 
anew pen with the DRAW command. 

It's very similar to selecting a text 
pen. Once selected, it remains in use 
until a further PEN command is used. 
You'll see if you enter: 


DRAW 439,8 


the second line is still drawn in bright 
cyan, even though we didn't specify a 
colour. 

Now enter the command: 


DRAW @,@.1 


and the colour will be restored to 
bright yellow to complete the 
triangle. 

Program IV draws that envelope 
shape that you may have been 
struggling with earlier. This time 
we're using Mode O so that we can 


1@ REM PROGRAN IV 
20 NODE @ 

30 DRAW 639,0,2 
40 DRAW 439,258,3 
50 DRAW @,0,4 

60 DRAW 0,250,5 


70 DRAW 639,258,6 
8@ DRAW S19,399,7 
90 DRAW B,258,8 
100 DRAW 439,8,9 
{10 GOTO 116 


Program 1V 


introduce a good selection of colour 
into the proceedings. You will see 
that each line is drawn in a different 
colour because we have appended a 
colour parameter to the end of each 
DRAW command. 

Try omitting some of the colour 
parameters in this program to see 
how the overall colour of the drawing 
is affected. 

While we are on the subject of 
colour, let's consider how we can 
change the colour of the background 
for our graphics screen. 

' The CLG command is used to clear 
the graphics screen. It works in much 


1@ REM PROGRAM V 
20 MODE @ 
3@ FOR colour=@ TO 15 


40 CLE colour 

S@ PRINT“CLE "scolour 

68 FOR delay=! TO 10@0:NEXT 
78 NEXT 


Program V 


the same way as the CLS command, 
which clears the text screen. 
However, if you try CLG in direct 
mode (that is, just type it into the 
Amstrad and press Enter) you'll see 
that the Ready prompt appears on a 
line corresponding to the last position 
of the text cursor — not at the top of 
the screen. We may also append a 
pen number to this command in order 
to change the background colour. 
Reset the computer, and enter: 


CLE 3 

Now as the graphics screen is 
cleared it changes colour to red, the 
pen number specified. Other colours 
can be selected as long as they are 
within the range allowed by the 
particular mode in use. This principle 
is very similar to changing the paper 
colour on the text screen, but of 
course the entire area of the graphics 
screen must be changed at once, as 
you have to clear it to change colour. 

Program V demonstrates how the 
background colour may be changed 
with the CLG command. Note that 
the text paper colour is unaffected by 
this command, and that the text 
cursor is not returned to its home 
position as it is when a CLS command 
is issued. 

You might like to try inserting 
some different background colours in 
some of the other programs. A word 
of warning though. Take care to avoid 
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drawing lines over a background 
colour with the same foreground 
colour. The lines will still be drawn, 
but you just won't see them! 

Some very interesting effects may 
be obtained by introducing random 
elements into our drawings. We could 
select random colours and also draw 
or move to random coordinates. 

In Program VI we are drawing lines 
in random colours to random 
locations. After each line is drawn we 


1@ REM PROGRAM VI 

20 MODE @ 

3@ WHILE INKEY$="" 

4@ colour=INT(1S#RND(L)) +1 
5@ x=INT(639#RND (1) ) +1 


6@ y=INT(S99#RND IL) ) +1 
70 MOVE 6,8 

8@ DRAW x,y,colour 

90 WEND 


Program V/ 


move the cursor back to the origin 
point (0,0) and the end result is a 
series of lines radiating from the 
bottom left hand corner. 

Suppose we now leave out line 80 
so that the cursor is not moved back 
to the origin. What effect do you think 
this will have? Try it and see. 

Alternatively we could move the 
cursor to another position instead of 
the origin. Try using these various 
options at line 80, and run the 
program again: 


8G MOVE 328,288 
8@ MOVE x8 
8@ MOVE x,y 
88 MOVE Q,y 
88 MOVE y,y 
80 MOVE x,x 


We can also produce some 
interesting patterns by leaving out the 
random functions and taking a more 
logical approach. Program VII again 
makes use of the DRAW and MOVE 
commands, but this time our lines are 
drawn in a more orderly fashion. 

We start off with two fixed points 
(x,y) and (a,b) at extreme corners of 
the screen and draw a line between 
them. Then the values of the four 
variables used are changed in steps of 
8 units before the next line is drawn. 

There are many variations on the 
same theme. Program VIII is another 
example. Perhaps you may like to try 
writing some of your own routines 
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similar to these. Try and predict what 
the finished pattern will look like 
before you run each program. 

There are many effects to be 
obtained by creative use of the MOVE 
and DRAW commands. To use the 
computer cliche, you are limited only 
by your own imagination. 

You should by now be familiar with 
the graphics screen coordinates as 
used with the MOVE and DRAW 
commands. There are, however, two 
related commands which use a slight 
variation on the graphics screen 
coordinate system. 

These two new commands are 
MOVER and DRAWR. Notice that we 
have simply added an R to the end of 
MOVE and DRAW. The R stands for 
RELATIVE, and it simply means that 
the moving or drawing should be 
relative to the present position of the 
graphics cursor. 


1@ REM PROGRAM VII 

20 MODE @ 

SQ FOR colour=1 70 15 
46 x=0 

5a y=@ 

68 a=639 

7@ b=399 

BG WHILE y<40@ AND x<440 
96 MOVE x,y 

108 DRAW a,b,colour 
110 x=x+8 

120 y=y+8 

138 a=a-8 

140 b=b-8 

150 WEND 

160 NEXT colour 


Program VII 


Let’s start off with a clear graphics 
screen, then we know that the cursor 
will be situated at (0,0). If we now 
issue the commands: 


DRAW 208,200 
DRAW 480,20 


the first line will be drawn to a 
position 200 points across the screen 
and 200 points up from the base line. 
The second line is drawn from the end 
of the first line, to a position 400 
points across the screen, and to 
vertical point O — that is, back to the 
base line. We end up with a sort of 
inverted V shape. 

Notice that all the coordinates 
used in the above commands are with 
reference to the origin point (0,0). 


a 
E 1@ REN PROGRAM VIII 


20 MODE @ 

3d x=Qs y=200 

AQ a=639:b=200 
5@ WHILE a>328 
68 MOVE x,y 

7 DRAW a,b,2 
BR aza-8:b=b-4 
9@ WEND 

180 WHILE x<320 
118 MOVE x,y 
128 DRAW a,b,5 
138 xext8sy=y+4 


148 WEND 
150 WHILE a>@ 
168 MOVE x,y 


178 DRAW a,b,4 
188 a=a-B:b=b+4 


190 WEND 
200 WHILE x<639 
218 MOVE x,y 


220 DRAW a.b.d 
238 x=xt8:yey-4 


240 WEND 
250 WHILE a<320 
268 HOVE x.y 


270 DRAW a,b, 
288 a=atBib=b+4 


298 WEND 

308 WHILE x>320 
318 MOVE x,y 
320 DRAW a,b,7 
$30 xex-Biysy~4 
348 WEND 

$50 WHILE a<640 
368 MOVE x,y 


37@ DRAW a,b,8 
380 aza+8ib=b-4 


$98 WEND 
4OB WHILE x>B 
410 MOVE x,y 


420 DRAW a,b,9 
430 xex-Siysyt4 
440 WEND 

450 GOTO 38 


Program VI// 


They are known as ABSOLUTE 
coordinates. 

Let’s try the same thing again 
using our two new commands. First 
of all enter a CLG command to restore 
the cursor back to the origin, then 
enter these commands: 


DRAWR 208,200 


DRAWR 400, 
This time the lines have been DW 
Sse 
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drawn relative to the graphic cursor’s 
last position. The first line is, in fact, 
identical to the one in the previous 
example, because the cursor was 
initially situated at (0,0) — our CLG 
saw to that. 

However the second line is 
completely different. It's been drawn 
horizontally from the end of the first 
line and ended up at a point with 
absolute coordinates (600,200). 

What has happened is that the 
second line has been drawn re/ative 
to the last position of the cursor 
instead of the origin point. In fact the 
two sets of coordinates have been 
added together like this: 


200 + 400 = 600 
200+ O= 200 


and so we have ended up at point 
(600,200). The same rules apply 
when using the MOVER command. If 
we entered the commands: 

CLG 

MOVER 158,288 

MOVER 100,158 


then if our maths are correct the cursor 
would end up at point (250,350). 

So you see it is just as easy to use 
relative. coordinates as it is to use 
absolute ones. The only problem is 
that you can easily wander off the 
edge of the screen when using 
relative coordinates, so you need to 
keep track of exactly where you are 
moving the cursor to. 

You might like to try substituting 
the MOVE and DRAW commands in 
some of the programs in this article 
with MOVER and DRAWR. If you use 
the same coordinates, the shapes 
produced will differ greatly from the 
originals, but you should be able to 
adjust the values in order to restore 
the correct shapes. 

In theory any shape can be drawn 
using either the absolute or the 
relative coordinate system. There are 
two points to remember. First of all, 
negative coordinates are allowed, so 
the commands: 


CLG 
MOVER 208,200 
MOVER -208,-200 


would move the cursor out to 
(200,200) and back again to (0,0). In 
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fact negative numbers are almost a 
necessity when drawing with relative 
cooordinates. 

Program IX demonstrates this 
point by drawing a square using 
relative coordinates. 

The second point to bear in mind is 
that it is possible to move the cursor 
off the screen by using cooordinates 
greater than those normally available. 

We have so far only used co- 
ordinates within the range (639,399), 
but it is quite legal, and sometimes 
necessary, to specify numbers greater 
than these. 

Enter the commands: 


CLG 
DRAW 1008, 1208 


and the computer will quite happily 


draw a line to an imaginary point 


(1000,1000). Of course the line will 
disappear off the screen. To prove 
that the cursor has in fact gone to the 
specified point enter another com- 
mand: 


DRAW 586 ,8 


and you will see that the line 
reappears as though it had in fact 
come from point (1000,1000). 
Program X demonstrates how 
off-screen coordinates may be used. 
The program begins by drawing a 
triangle small enough to fit on the 
screen. Now if you press the + key the 
triangle is erased and redrawn slightly 
larger. Keep on pressing the + key 
and eventually the triangle will be 
drawn outside the limits of the screen 


1@ REM PROGRAM IX 
2@ HODE 1 
38 MOVE 368,308 


40 DRAWR 200,8 
50 DRAWR @,-200 
4@ DRAWR -200,0 
78 DRAWR @,200 


Program 1X 


perimeter. It is in fact being drawn 
using off screen coordinates. 

Use the — key to reduce the 
triangle down to its original size. This 
zoom technique is often used to vary 
the size of images on the screen in 
order to show more detail in complex 
drawings. 

Anyway, that’s enough for this 
month. Try plotting some shapes of 
your own with DRAW, MOVE, 
DRAWR and MOVER. Next month 
we'll move onto plotting individual 
points. 


ie REN PROGRAN x 
2@ MODE 1 
$@ colours 
40 x=100sy=100 
5@ a=400:b=308 
6@ c=400;d=100 
7@ GOSUB 110 
8@ IF NOT INKEY(28) THEN GOSUB 170 
9@ IF NOT INKEY(25) THEN GOSUB 25 
100 GOTO 80 
11@ REM draw triangle 
120 MOVE x,y 
138 DRAW a,b,colour 
140 DRAW c,d 
158 DRAW x,y 
160 RETURN 
178 colour=@ 
188 GOSUB 110 
19@ x=x-8: y=y-8 
208 a=at8:b=b+8 
210 c=ctOsd=d-8 
2208 colour=l 
238 GOSUB 11a 
240 RETURN 
258 colour=0 
268 GOSUB 118 
270 xext8iysy+8 
288 aza-8:b=b-8 
298 c#c-8:d=d+8 
308 colour=t 
31 GOSUB 114 
328 RETURN 


Program X 
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Computing with the Amstrad 


E‘VE covered a lot of 
ground in the first four 
articles of this series, so 


this month we'll take a little time 
to reconsider what we've learnt. 

The SOUND command is the one 
that tells the Amstrad to make a 
noise. Not only that, it controls the 
type of noise made, how long it lasts 
and how loud it is. 

At its simplest, the structure of the 
SOUND command is: 


SOUND channel pitch, duration, voluee. 
You can hear what it sounds like by 
keying in: 
SOUND 1,200,180,7 


By comparing it to the basic 
structure, you'll see that the channel 
parameter is 1. The Amstrad has 
three sound channels — channel A, 
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channel B, and channel C. Each can 
make a noise independently of the 
other, so you can have three different 
notes playing at the same time. 

In the above example the channel 
parameter was 1, so channel A made 
the sound. If it had been 2, channel B 
would have produced the noise, while 
4 would select channel C. 

There is a lot more to the channel 
parameter (which we'll come to next 
month) but for the present we'll just 
stick to the values 1,2 and 4 selecting 
channels A, B and C respectively. 

The next parameter we come to 


controls the pitch, deciding how high 
or low the note can be. It can take 
whole number values from 0 to 4025. 

The larger the value of the pitch 
parameter the lower the note 
produced. Similarly, the smaller its 
value, the higher the note produced. 

When you use a SOUND com- 
mand you have to give it a channel 
and a pitch parameter. You can't 
leave them out as in some of the other 
parameters we'll meet. 

The duration parameter decides 
how long the note is going to last. It 
can take integer values ranging 
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between 32767 and —32768. 

The positive values decide how 
long the note is going to last, 
measured in hundredths of a second. 
Hence a duration parameter of 100 
will last for one second while 50 will 
last for half a second and 1000 for 10 
seconds. 

Negative values of the duration 
parameter have a different effect. 
They still determine how long the 
note is going to last, but in a more 
roundabout method. 

When the number is negative it 
tells the Amstrad that a volume 
envelope is to be used to alter that 
note and that that volume envelope is 
to be repeated. If the duration 
parameter is —3 the volume envelope 
is repeated three times. If it's —20 it’s 
repeated 20 times. 

When a negative duration par- 
ameter is used the length of the note 
produced by the SOUND command 
depends on the number of times the 
envelope is repeated. Each volume 
envelope lasts for a fixed time, 
decided in its definition. 

So if a particular volume envelope 
lasts for two seconds and the 
duration parameter is —3 then the 
whole note will last six seconds. The 
repeated volume envelope deter- 
mines the length of the whole note. 

We'll have more to say about 
volume envelopes later. 

The volume parameter speaks for 
itself. Normally it can range from O 
(silence) to 7 (loudest) but if a volume 
envelope is used the range becomes 
O to 15. 

There's no difference in the 
maximum loudness. Without an 
envelope 7 is just as loud as 15 with 
an envelope. It’s just that with a 
volume envelope you can have finer 
control over the loudness. 

You don't have to specify either the 
volume or the duration parameter. If 
you leave them out the Amstrad 
assumes that you mean a note of 
volume 4 with a duration of 20. These 
are the default values of the 
parameters. 

You should now understand why: 


SOUND 4,200 
is the same as 
SOUND 4,208,28,4 


As you can see, our basic SOUND 
command isn’t too hard to grasp. In 


N 
1 
Range to 
15 


Number of 
steps in section 


Time length 
of each step 
R 


Volume change 
per step 


ATE 255 


Table I: Parameter ranges for ENV command 


fact you could produce some nice 
noises using only the four parameters 
we've covered so far. However if you 
really want to take full advantage of 
the CPC464's abilities you have to 
know a little about the volume and 
tone envelopes. 

Now our SOUND command takes 
the structure: 


SOUND channel pitch, duration, voluae, 
voluae envelope,tone envelope 


As you can see, we've added two 
more parameters. The volume 
envelope parameter can take values 
between 1 and 15. These numbers 
refer to previously defined volume 
envelopes. 

A parameter of 2 will bring volume 
envelope number 2 into play while a 
parameter of 5 invokes the volume 
envelope labelled number 5. These 
volume envelopes determine how the 
loudness of the note produced by a 
SOUND command varies as the note 
plays. 

There is a volume envelope O. This 
is the default envelope and plays for 
two seconds at the volume specified 
in the SOUND command. 

Having seen how volume 
envelopes are called by a SOUND 
command, let's take a brief look at 
how they're defined. This is done 
using the ENV command which, at its 
simplest, takes the form: 


ENV N,P,Q,R 


N is just the number labelling the 
volume envelope, and takes values 
from 1 to 15. The volume envelope 
works by changing the loudness of a 
note in a fixed number of steps, each 
step lasting for a short period of time. 

The P parameter, which ranges 
from O to 127, determines the 
number of steps there will be in the 
envelope. The Q parameter, which 
can take values between —128 and 
127, picks the volume change for 
each of these steps. R decides how 
long each step will last, measured in 


hundredths of a second. 

So defining a volume envelope 
with: 

ENV 12,5,2, 188 

creates envelope 12, which consists 
of five steps, each lasting one second 
with the volume increasing by 2 for 
each step. 

You should be able to hear its 
effect on: 


SOUND 4,200, 508,3,12 


Table | shows the parameter 
ranges for the ENV command. 

You'll probably remember that our 
previous envelope definition only 
referred to one section of a volume 
envelope. In fact you can define up to 
five sections in a volume envelope 
and the corresponding formula is: 


ENV N,P1,Q1,R1,P2,02,R2, 
P3,03,R3,P4,04,R4, 
P5,85,R5 


The pitch or tone envelope is very 
similar to the volume envelope except 
that it affects the highness or lowness 
of a note, not its loudness. The basic 
structure of its definition is: 


ENT S,T,V,W 


As you might guess, S just labels 
the envelope. It can take values 
between 1 and 15. The default 
envelope has S as O and leaves the 
pitch unchanged. 

The T parameter decides on the 
number of steps in the pitch envelope. 
Its value can range from O to 239. 

The change in pitch that occurs at 
each of these steps is given by V. This 
ranges from —128 to 127. Notice 
that a negative V raises the pitch at 
each step while a positive value 
lowers it. 

The W parameter gives the length 
of each step. Measured, as usual, in 
hundredths of a second, it ranges 
from O to 255. 

So: 


ENT 13,10, 20,188 
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defines pitch envelope number 13. 
This has 10 steps, each lasting for one 
second. At each step 20 is added to 
the pitch parameter of the SOUND 
command. This results in a note 
descending in pitch. 

Listen to its effect on: 


SOUND 2,500, 1000,7,0,13 


Like the volume envelope before it, 
the pitch envelope can have up to five 
sections, each using the above 
parameters. This more comprehen- 
sive definition is: 


ENT S,T1,V1,W1,12,V2,42, 
T3,V3,W3,74,V4,04, 
19,45, 49 


Table Il shows the parameter 
ranges for the ENT command. 

The pitch envelope can be made to 
repeat simply by making the label 
negative. Listen to the effect that: 


ENT -5,5,-20,100 
has on 
SOUND 1,680, 2500,7,0,5 


The pitch envelope lasts for five 
seconds, then repeats itself as the 
noise keeps on going. Notice that 
while the label number in the 
definition is negative, the SOUND 
command still calls it with a positive 
number. 

Also notice that, unlike the volume 
envelope, the repeated pitch 
envelope has no effect on the 
duration of the noise. 

When the duration in the SOUND 
command ends the note stops, even 
halfway through a repetition. Listen 
to what happens when: 


ENT -14,3, 108,58 
has its wicked way on: 
SOUND 2, 1000, 408,7,0,14 


Before we take our leave of the 
envelopes notice that by themselves 


Number of 
steps in section 


Parameter 


1ote 1b 
(-ve for repeat) 


Range 


Table //; Parameter ranges for ENT command 


ENV and ENT are mute. They don't 
make a noise, they just affect the 
noises made by SOUND commands. 

As you can see from the above, 
we've come a long way in four 
articles. Our simple SOUND com- 
mand has grown from four fairly 
obvious parameters to six, with ENT 
and ENV thrown in for good measure! 

However | think you'll agree that if 
you take them step by step they're a 
lot simpler than they look at first 
glance. 

And now I'll add one last 
parameter to the SOUND statement. 
It’s the parameter that tags onto the 
end and allows us to make noise. Yes, 
| know that’s all we've been doing for 
the past four months, but this is a 
rather different noise. Try: 


SOUND 2,300, 1808,7,0,0,13 


and hear the effect. Not what you 
might have expected. 

The explanation lies in the last 
parameter tagged on the end of the 
SOUND command. This is the aptly 
named noise parameter. It can take 
values from 1 to 15 (0 is the default 
and does nothing) adding a variety of 
semi-random noises to the notes you 
might expect. 

Now our SOUND command looks 
like: 

SOUND channel ,pitch,duration,voluae, 
volume envelope, tone envelope,noise 

Try experimenting with the noise 


parameter to see what it can do. Use 
a note like: 


SOUND 1,268,206,7 


bo Woluime 


without with 
ome ee 


Duration 


Lo eee 


Table III: Parameter ranges for SOUND command 
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Volume | 
envelope 


Pitch change - 
‘per step 


and then add noise to it with lines 
such as: 

SOUND 1,200, 200,7,0,8,1 
and 

SOUND 1,280,208,7,8,0,15 

Use all the noise values between 1 
and 15 and then try it out with pitch 
and volume envelopes and different 
pitch and duration parameters. You'll 
come across all sorts of marvellous 
sound effects. (Send them in to 
Postbag if you've got any you want to 
share.) 

Program | is my version of a steam 
engine. 

And that’s it for this month. I’ve 
summed up all our SOUND par- 
ameters in Table III and leave you to 
experiment with noise and noises. 

One last point. Remember from 
the first article | told you to get rid of 
any odd sounds by entering: 


SOUND 129, 100,0,8 


into your Amstrad? What does a 
channel parameter of 129 mean? 
We'll be coming to that next month. 


18 REM Program I 

28 REM Steam Engine 

30 pitch=i 

40 FOR duration=!0@ 10 20 STEP -1@ 
5@ SOUND 1,pitch,duration,7,0,0,1 


4@ SOUND i,pitch,duration,7,@,0,15 
70 NEXT duration 

80 WHILE NOT true 

90 SOUND 1,pitch,duration,7,@,@,1 
100 SOUND i,pitch,duration,7,0,0,15 
118 WEND 


envelope | 
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MOUSE = 


Get to grips with 


GRAHAM REDMAN's 
challenging chase game 


OUSE is a very simple 
graphics game written 
mainly in Basic in which 


you chase a mouse, gradually 
cornering him in order to pounce. 

The mouse moves continuously in 
a diagonal direction over the whole 
screen, bouncing off the walls. 

Using the joystick or cursor keys 
you can move yourself around the 
screen, but as you do you leave a trail 
of “blocks” behind which act like a 
wall and will confine the mouse so 
you can catch it. 

To do this all you have to do is 
place yourself over the mouse. Of 
course the lowest score is the best in 
this game, so the secret is to act 
quickly and pounce. My record so far 
is 15. 

Although this is a Basic program 
there are two very simple machine 
code routines. One returns the Ascii 
value of an input through the 
keyboard or joystick and the other 
returns the Ascii value of a character 
at a particular screen location. 

The program is written entirely in 
character (low resolution) graphics in 
Mode 1 and uses LOCATE and PRINT 
for movement. 

The two mouse characters and the 
wall “block’’ are defined characters 
(from Ascii 201), while the man 
characters are from the Amstrad Ascii 
set. Each time the mouse moves it 
tests the Ascii value of two squares 
ahead and to one side of it (see Figure 


1). It has to do this in order to know 
which way to turn when it detects a 
wall. If, however, it comes to a 
character diagonally in front it will 
wipe it out and go through the gap. 

Having an unpredictable mouse 
adds a new dimension to the game, 
hence the warning in the introduction 
— “BEWARE: THIS MOUSE CAN 
GNAW". 

Mouse is well documented with 
REM statements and should not be 
too difficult to follow. 

In order to get quick keyboard 
response minimum speed key values 
are used on line 50. However this can 
cause problems during programming 
and testing if a break or error occurs 
due to de-bounce. 

To overcome this a break is 
trapped in order to restore the normal 
speed key values at line 1350. 

Errors are not trapped, so their 
source can be examined, but the 
small Enter key has been redefined 
(line 40 in the program) so that if it is 
pressed once it will restore normal 
working of the keyboard. 

In the case of a syntax error the 
large Enter key must be pressed first 
in order to come out of the edit. Then 
the small Enter key can be pressed 
and the edit can then be done. 

If all this seems complicated then 
the best idea is to miss out the SPEED 
KEY 1,1 on line 50, enter the whole 
program, debug it, then complete line 
50. 


Figure |: How the mouse moves 


10 REME#HEEMOUSE BY G.REDMANFEEE# 
2@ REM(c) Computing with the Amstrad 
3O REM#e#EEINITIAL SETTING UPeeeee 

4@ ON BREAK GOSUB 135Q:KEY 139, "SPEED 
KEY (0, 5:1NK 1,25:PEN {"+CHR$(13) 

S@ RANDOMIZE TIME:SPEED KEY 1,1 

60 ad2=34999;G05UB 1080: ad$=35020:60SU 
B 1240 

7@ REM@#MOUSE & MARKER CHARACTERS## 
8@ SYMBOL AFTER 2@@:SVMBOL 21 ,0,8,68, 
126,34,12,8,8 

90 SYMBOL 202,0,16,68,126,68,48,8,0 
100 SYMBOL 203,0,0,60,60,60,60,0,0 

110 REM#COLOUR AND WINDOW SETTINGS® 
120 BORDER 4: INK @,@:1NK 1,Q:INK 2,Q:1 
NK 3,8:PAPER @:CL5 

13@ WINDOWH2,2,39,25, 25: WINDOWO4 2,39, 
2,23:PAPER#4 ,QsPAPER #2, 2:PEN@2,0 

140 th=10000 

150 GOSUB 75O:REMMETITLE & INSTRHE+ 
168 REN##*DRAW BORDER##+ 

170 CLSsINK 3,@:PEN 3sPRINT STRINGS (40 
1143) 

180 FOR n=2 10 25:LOCATE 4Q,nsPRINT C 
HR$(143) ¢ NEXT 

198 LOCATE 1,24:PRINT STRINGS (40,143) 
200 LOCATE 1,1:FOR n=f TO 25:LOCATE 1, 
PRINT CHRS(143);sNEXTEINK 3,6 

210 REM###SCORE WINDOWH# 

228 CLO#2:LOCATEW2,3,i:PRINTH2, "Your § 
core’: sh=Q@:LOCATEW2, 20, 1sPRINT#2, “Best 
Score":LOCATE#2, 30,1: 1F t4<>10808 THE 
N PRINT#2,t% 

238 REM#SOUND VARIABLES & START## 

248 ENT 1,1,12,6,1,-12,4:ENV 1,6,-1,1 

250 XAEINT(RND (1) #38) 44: yReINT(RND (1) # 

2@) +3: qghINT(RND (1) 438) +42 h020NT(RND (1 
#2O)+SidirsINT(RND(1)#4)+1:PEN 2 

240 REN###NAIN PROGRAM LOOPa#® 

270 IF dir={ OR dir=2 THEN mou=202 ELS 

E mou=2@1 

288 LOCATE gd, ha:PRINT CHR${mou) 

290 PEN Q:LOCATEH2, 13, 1:PRINT#2,s2%:s%= 

Skt] 

308 GOSUB 950:REM##MOVE HANES 

S1@ LOCATE gi haePRINT CHR$(143):PEN 2 

320 GOSUB 400:REMHEMOVE MOUSESS 

SSO LOCATE (gitid) ,hAsGOSUB 119@:REN#* 

LOOK FOR WALL## 

348 IF kd=i THEN mZ=1:G0SUB 460:REM+#C 

HANGE MOUSE DIRECTION#* 

350 mdaOsks=Os LOCATE gh, (ha+j%) GOSUB 
1198 

368 IF ke=i THEN mZ=2:G0SUB 460 

S70 ke=Q:m2=0:G010 270 

3BQ REM###END OF MAIN LOOPHee 


=| 
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390 REN###HOVEMENT ROUTINES #* 
400 IF dir=1 THEN gh=qétishdehatdsi fel 
Pyeel 

410 IF dir=2 THEN gh=gdtishd=hd-tsidel 
2 jte-t 

420 IF dir=3 THEN gt=ga-{shdeha-teide- 
Ly jte-1 

430 IF dir=4 THEN gheqd-Jshdehitisise- 
13 jet 

448 RETURN 

450 REM**DIRECTION CHANGE ROUTINE## 
460 IF xd=g% AND ydeht THEN GOTO 570 
478 SOUND 1,168,6,15,1,1,8 

480 1F dir=t AND m4=1 THEN dir=4:RETUR 
N 

490 IF dir=i AND m%=2 THEN dir=2sRETUR 
N 

508 IF dir=2 AND m4=1 THEN dir=3sRETUR 
N 

S1@ IF dir=2 AND m4=2 THEN dir=1:RETUR 
N 

520 IF dir=3 AND m421 THEN dir=2:RETUR 
N 

530 IF dir=3 AND m4=2 THEN dir=4sRETUR 
N 

548 IF dir=4 AND m4=1 THEN dir=1sRETUR 
N 

550 IF dir=4 AND m4=2 THEN dir=3:RETUR 
N 

568 REM###MOUSE CAPTURED ROUTINE### 
570 IF x4)36 THEN x%=36 

580 IF y4>2@ THEN y4=28 

598 IF x4<3 THEN x43 

600 IF y4<3 THEN yue3 

610 WINDOWNS, (x%-2) , (x442) , (y%-2) , (yat 
2) PAPERS, 3:CLS#3sPEN#3, 2:LOCATER3, 2, 
2:PRINTHS, "GOT" sLOCATE#S ,2,4:PRINT#S, " 
HIM" 

628 ENT 1,15,7,2,15,-7,2 

630 FOR n=100 TO 25@ STEP 2:SOUND 1,n, 
3,6,0,1,0:NEXT 

640 SOUND 1,210,50,6,0,8,9 

650 IF si<th THEN tes%-1 

640 LOCATE #2,30,1:PRINT #2,t% 
678 LOCATE 5,24:PEN 1:PRINT" 
ACE BAR WHEN READY " 

68@ WHILE INKEY$<>" “sWEND 

698 REM#*##REPEAT GAME#HA# 

708 CLS#4:LOCATE 5,24:PEN S:PRINT STRI 
NGS$(31,143):PEN 2sLOCATE 12,13sPRINT “ 
Another game ? (Y/N)" 

710 x$2UPPERS (INKEYS) IF x$="V"THEN CL 
§ #4:60T0 220 

720 IF x$="N" THEN GOTO 1350 

738 GOTO 718 

748 REM¥#*4TITLE & INSTRUCTIONS##e# 
750 WINDOW! ,8,33,2,9:PENM1, 1 

760 RESTORE 900 


PRESS SP 


990 IF in=if OR in=24@ THEN yd2yd-Iima 
n=249 

1008 IF in=i® OR in=241 THEN yAeyitlso 
an=249 

1818 IF x£>39 THEN x4=39 


770 FOR n=1 TO 104 

780 READ titsPRINT#i CHRS(tit); 

798 NEXT 

BOG PENH), 2:PRINT#IsFOR n=i TO 13sPRIN 
TH, CHRS (282) ;CHRS (281) ;sNEXT n 

810 PENW4,3:LOCATE#4,1,8:PRINT#4,"” U 
sing the joystick or the cursor keys 


you must chase the mouse ";:PEN#4 
2EPREINTH4 , CHR$ (202) 3 ¢ sPEN#4, 3sPRINTHS 
"and capture hia," 

828 PRINT #4:PRINT#4," To do this 
you must move yourman to the sa 
me position as the mouse. The trai 
1 you leave behindwill act like a 
wall and confine themouse so you can 
capture him." 

838 PRINT#4:PRINT#4," Do this as fa 
st as you can. The LOWEST score is t 
he best." 

B40 PEN 2:LOCATE 5,23:PRINT “BEWARE, T 
HIS MOUSE CAN GNAW !!!!" 

850 LOCATE 18,25:PRINT “PRESS THE SPAC 
E BAR. "3 

BoB INK 1,14:INK 2,24:INK 3,15 

870 WHILE INKEY$<>" "sWEND 

880 CLS#4:RETURN 

B98 RENR#DATA FOR TITLEt#etes 

980 DATA 214,32,32,32,32,215,32,32,214 
1143, 215,32,32,214,32,215,32,52, 214,14 
3,215, 32,32, 214,143,215 

F1@ DATA 143,215,32,32,214,143,32,32,1 
43,32, 143, 32,32, 143,32, 143,32,32,213,2 
10,32,32,32, 143, 218,32 

92B DATA 143,213, 215,214,212, 143,32,32 
143,32, 143,32,32,143,32,143,32,52,32, 
208,215, 32,32, 143, 208,32 

930 DATA 213,32,213,212,32,212,32,32,2 
13,143, 212,32,32,213,143,212,32,32,213 
1143, 212,32,32,213, 143,212 

948 REMES#INKEYS/JOY m/c ROUTINEt## 
950 CALL ad2+i:in=PEEK(ad2):man=248 
968 PEN 1sLOCATE xA,yAsPRINT CHR$(203) 
970 IF in=8 OR in=242 THEN xd=x%-Leman 
=250 

980 IF ine? OR in=243 THEN xdexX+lsman 
=251 


1020 [F xf¢2 THEN xd22 

1038 IF yu>23 THEN yi=23 

104 IF ya<2 THEN ya=2 

15 PEN 2:LOCATE xd,yd:PRINT CHR$(man 
PEN O:SOUND 1,200,1,2,0,8,0 

1868 RETURN 

1070 REM#*#POKE INKEYS m/c#a% 

188 c=INT(ad2/256) sh=ad2-256%c 

1890 RESTORE 1148 

1108 FOR nzad2 TO ad2+i3 

1118 READ dsIF d=999 THEN d=b 

1120 IF d=99B THEN dec 

1138 POKE nyd 

{148 NEXT n 

115@ RETURN 

{168 DATA 8,62,0,50, 999,998, 205,27 
1178 DATA 187,208,50,999,998, 201 
{182 REM**CHECK CHAR POSITION#+ 

1198 CALL ad3+1 

{288 ch=PEEK (ad3) 

121@ IF ch=143 OR ch=23 THEN ki=t 
1228 RETURN 

1238 REM**POKE CHAR CHECK m/c#t# 
1240 ceINT (ad3/256) sb=ad3-256%c 

{258 RESTORE 1320 

1268 FOR n=ad3 TO ad3+13 

1270 READ ds IF d=999 THEN d=b 

128@ IF d=998 THEN d=c 

1290 POKE n,d 

138Q NEXT n 

1318 RETURN 

1328 DATA 8,62,244,50,999 998, 205,94 
133@ DATA 187,208,50,999 998, 201 
1340 REMFRAEHEND ROUTING RHHHREE 

1350 CLO:INK 1,25:PEN 1:LOCATE 1,13:PR 
INT "Type R to RUN again or E to END p 
rogram, "sSPEED KEY 18,9 

1360 xS=UPPERS(INKEY$): IF x$="E" THEN 
END 

1370 IF x$="R" THEN RUN 

138@ GOTO 1368 


Give your fingers a rest... 


All the listings from this month's 
issue are available on cassette. 


See our special offer on Page 77. 
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-Haystack—EPC464 Software 


8 MIDGROVE, DELPH, OLDHAM OL3 5EJ Tel: 045 77 5229 
OUR 
RRP PRI OUR 
Ree aa RRP PRICE RRP PRICE 
Chuckielkqqpaeereeeee tH ope Letters + 8.95 7.95 Zen Assembler* 
90 6.90 ler 
ABACUS Happy Numbers 8.95 7.95 
Hes Happy Writing 895 7.95 LEVEL 9 
ash Planner... 11.45 Map Rally ... 895 795 Adventure Quest I b 
Mailing List .... 15.95 Osprey! ... 9.95 895 Colossal Adventure .. 9.95 8.45 
Non Vat Accounts 15.95 Timeman On i i Dungeon Adventure 9.95 8.45 
8.95 7.95 
26.95 Timeman Two ..... "8.95 795 Emerald Isle ... 6.95 5.95 
26.95 Wordhang . 8.95 795 Lords of Time . S195; 8.45 
15.95 Worldwise . | 895 795 Return to Eden . y 8.45 
ADDICTIVE ANIROG , ; Snowball 8.45 
owl Batis ; 6.95 Flightpath 737 .. eee 6.95 5.95 LOTHLORIEN (WARMASTER) 
are Star... 6.95 House of Usher 6.95 5.95 ony Rebs -695 5.95 
ALLIGATA Moon Buggy* 795 6.95 Redcoats . 6.95 5.95 
Blagger . 6.95 Survivor 695 5.95 Special Operations : Eavessergee O99) 5.95 
Defend or Die 6.95 Zodiac™ ..... zs 6.95 595 MELBOURNE HOUSE. 
ACTIVISION 3D Time Trek™ ........... . 1.95 6.95 obbit ....... 12.95 
Ghostbusters* TBA ARTIC Sherlock Holmes” 5 Bs 12.95 
AMSOFT World Cup Football .... 6.95 SiancelOtenn. str vereee ky omnes Pes eeeeOg 9 5.45 
Admiral Graf Spee .... 7.95 ASK MICROBYTE 
Alien Break In... 7.95 NutnberPaiinterss2nerenscaeesceeee tess aah ce 8.95 7.95 tbe eer ete cates: 1 Jes Bae 
‘American Foathall 8.95 cps ; SD /SpaceRanaen eect ce ne eee Ob 6.95 
Amsgolf ............ 7.95 Castle Blackstar*™ 5.95 MICROGEN 
Amsword (Advanced) 17.95 Steve Davis Snooker .. 6.95 Everyone's a Wally” 9.95 8.95 
fpswrd 35) a0 oe A CRL yjamarama . 8.95 7.95 
iMtom(Smaciera 895 795 MestiMatcht, ucesyseeesears cries s7e teen a ce 6.95 5.95 MIC ROPOWER 
Centrecourt ..... 895 7.95 DATACOM illerGorilla/Gauntlet ......... 08 
Classic Adventure* ... 8.95 7.95 Empire ... 5.95 5.25 I 8.95 
Classic Racing” : 895 7.95 Execution : 595 5.26 MIRRORSOFT 
Badaname Mates 895 795 Intergalactic Trader 595 525 First Steps/Mr.Men™ .. 7.95 
Concise Basic Spec.* ©1995 17.95 Snail Pace ....... X 5.25 erepa ec MEMen age 
Concise Firmware Spec. “19.95 1795 Wumpus Mansion .. 5.25 MOSAIC 
95 7.95 BE IGN DESIGN Erika heWViking|y-sccscoess sa ceuate.eeesseenerete 9.95 8.95 
it. x 7.95 ark Star ... 6.95 MYRRDIN 
pecbion Mater él 19.95 Tank Busters* . 4 6.95 Flight Simulation ..................sesececsseeues 11.95 10.45 
y space 7.95 DIGITAL INTEGRATION NEMESIS 
jevpac Ass/Disass 21.95 ji i i 
Dragons Gold . 795 RightanPilotecee neers eee eects. 8.95 7.95 Trial of Arnold Blackwood ...... 5.76 
Electra Fredy S198 DUCKWORTH Arnold Goes Somewhere Else 5.75 
entienrenet Aaae Castle Dracula* 1.95 5.95 The Wise + Fool of Amold . 5.75 
* New Angelique 
Frank’n'stein . 7.95 Colossal Cave Adventure A 6.95 5.75 
Fruit Machine 795 Island Adventure™ ........ 6.95 P.S.S. 
Galactic Plague .. 795 Mountain Palace Adventure*® 6.95 Battle for Midway ........0......00.0.....2cccee 9.95 8.95 
Grand Prix Driver 7.95 DURELL R+B 
Guide toBasicl .. 17.95 Combat Lynx” 8.95 7.95 Mission One — Project Volcano .................. 8.95 7.96 
Bulle ie Basie I. 17.95 Death Pit 7.95 6.95 REDSHIFT 
arrier Attack ... acne! 7.95 FANTASY The Tripods 11.50 9.95 
Ha eva DY RANTASY 0 Thi rynas jaa eeetase ce reeeacreseteeatrnes oa i i 
Hisoft PASCAL® flonase Beckers ea0 SOFTWARE PROJECTS 
Homme Budget “4995 ion ie Pyrami 6.50 Jet Set Willy .............. 7.95 
Home Runner . 8.95 795 GEMINI Manic Miner .. 7.95 
Hunchback .. 895 795 Database 17.95 STERLING 
Hunter Killer .. Teh 895 795 Home Accounts 17.95 Country Cottages ...............eseseveneeeeeeeees 7.95 6.95 
Jet Boot Jack* 895 7.95 Bena Generate 17.95 SUPERSOFT 
Laser Warp ... " 7.95 GILSOFT Interdictor Pilot® ......0.....ccc eee eee 17.95 15.95 
Master Chess . 7.95 CULES QU ll eoceers ccmeereecertec st ares es 16.95 = 15.25 TASMAN: © Sead an ; : 
Masterfile* 19.95 HEWSON 
Mt H SC VAS COPY Ee sense ook ea 8.90 
ongs Loopy Laundry 7.95 Fantasia Diamond 6.95 TASPRINT 
Mutant Monty .. 7.95 Heathrow ATC .. 6.95 TASWORD .... 8.90 
Oh Mummy 7.95 Technician Ted... 6.95 oy Wee 
Pitman Typing Tutor 8.25 HISOFT VIRGIN 
BrejectiPlannert 19.95 Hare SOLCHIY SBsceec: Se ccideesns Seem neers 8.95 195) 
Punchy: .... 795 ONG eaten sponse eae eeeeeateme oe teres 7.95 6.95 VORTEX 
Wee te 7.95 INCENTIVE oe Android One ..... 7.95 6.95 
‘oland Ahoy .... 795 ‘onfuzion f 6.25 
Roland/Digging 795 INTERCEPTOR WINTER SOG 
RingiofiDarkness’ ss..ccnsescd 2 .uvees-jasve-ces) S195 8.95 
Roland/Caves .. 7.95 Chopper Squad ......... 5.25 
Roland/Ropes 7.95 Forest at Worlds End 5.25 * Please ring to confirm availability 
Roland/Run ..... 7.95 Heroes of Karn .... 5:25 
Roland/Sq. Bashing 7.95 Jewels of Babylon ... §:25 
Roland in Time * 7.95 Message from Andromeda 6.25 C15 Computer Cassettes 
Screen Designer 12.95 KNIGHTSOFT (Box of 10) .. + 
ee ae Animated Strip Poker ............csssseceseeeeeee 8.95 7.95 
Splat! .... 795 oe 14.95 129 
Spreadsheet* . 17.95 DASE... +++ -+20 » 14 95 Pro-Ace Joystick ......... 11.95 
Star Commando 7.95 EasiVAT™ 39.50 34.50 Se 
Starwatcher” 1545 Fruity Frank . 6.95 5.95 
Stockmarket” 7.95 Galaxia ...... 5.95 5.25 
SHGHSMaDn tae Gems of Stradus 7.95 6.95 PHONE FOR DETAILS OF 
Xanagrams .. 795 Holdfast ..... 5.95 5.25 OTHER SOFTWARE — WE 
S0ihvadars! 795 jog Guage 19.95 17.95 CAN SUPPLY ALMOST 
AMSOFT/BES Music Compose “aa5 ass her cte hills 
Animal, Vegetable, Mineral ................. . 8.95 7.95 Star Avenger oe 95 5.95 AVAILABLE! 
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IRST of all a big thank you 
to everyone who has 
written in during the last 


few weeks in connection with my 
faster circle request. 

You may recall that in March's 
article | dabbled at a spot of 
programming and produced what | 
considered a rather nifty little 
program. It involved three rotating 
elipses and | asked if anyone could 
make the program draw them any 
faster. 

| had a variety of first class replies 
and we included the first one received 
in last month’s Postbag. Many others 
were interesting, touching on ideas 
that Kevin Edwards has used in this 
issue’s animation article. 

Last month | introduced you, 
tongue in cheek, to the host of people 
who write to us with programs that 
they have typed in and cannot get to 
run, (By the way | forgot to mention 
the hairdresser... ‘/’ve been through 
it with a fine toothcomb”.) |nevitably 
these people have made typing errors 
and some actually admit it (see Mr 
Bellis's letter on Page 73 of last 
month's issue.) 

In the same article | promised you 
some useful hints to help get your sick 
programs back on their feet again and 
I'm going to make a start now. 

| make no apologies for re-em- 
phasising that the main reason for the 
majority of your typed in programs 
not running is that somewhere you 
have made a mistake. No, not in 
buying the your micro in the first 
place, although you may feel like 
chucking it through the window 
sometimes! 

You have either mistyped or 
omitted some item, or have inserted 
something in the program that is not 
only not required, but whose 
presence is fouling up the program. 

These typing errors are certainly 
responsible for the variety of error 
messages that will greet you, ranging 
from a simple ‘Syntax error’ to the 
heart-stopping “Subscript out of 
range’. No, | don’t relish this second 
one either. 

Preventing the typing errors rather 
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McLACHLAN 
investigates ways 
of getting sick 
programs back on 
their feet 


than curing the results would seem to 
be the ideal solution. It should be easy 
enough. Type in the listings slowly, 
carefully, checking each line once it 
has been entered. You can even move 
the cursor across the line to highlight 
each letter or to count each data entry 
as each line is finished. 

Tedious? Dead right, but | did it on 
many occasions in my early days in 
computing, and although | was fed up 
to the back teeth, my programs 
worked. Believe me, that makes up 
for all the tedium. 

But, quite naturally, people get 
impatient and prefer to crash on 
regardless in a rush to get the tedious 
part finished. Then they start looking 
for errors when RUN doesn’t work. If 
this is the way you prefer to do it, we 
must look at some ways to make 
those errors easier to find. 

A good idea is to make use of one 
of the features of your Amstrad. Why 
not type the listing in using lower 
case letters (except of course where 
upper case ones are necessary in 
PRINT or DATA statements)? If you 
haven't already realised, your micro 
translates all commands entered in 
lower case into upper case when the 
program is RUN or LISTed. 

This has a bonus in that any 
incorrectly entered command will 
remain in lower case — standing out 
like a sore thumb when you list the 
line. Try it — type in Listing | exactly as 
it is. Don’t correct any errors. 

Run it and see for yourself. The 


Listing | 


program is intended to clear the 
screen in Mode 1, print the text at 
location 2,2 count to 1000, then wipe 
out the text with spaces. Line 80 is a 
dummy to prevent the “Ready” 
prompt appearing. 

The first error message you'll get is 
“Syntax error at line 10” and with it 
your Amstrad lists the line and 
automatically puts you into Edit 
mode. This error is probably easy to 
spot — the command mode is still in 
lower case because | forgot the space 
between it and the number 1. Correct 
the error and run the program again. 

If you carry on correcting each 
error as it appears you should realise 
how useful this idea can be. By the 
way, the only mistake which is not a 


.“Syntax error” puts a O on the screen 


at location 2,2. Have you any idea 
why? Think about it and I'll tell you 
the answer at the end of the article. 

It is important if you are going to 
enjoy your hobby completely that 
very early on you become reasonably 
proficient at picking your way through 
a listing by just reading it. In fact, it is 
imperative if you want to be able to 
debug your own programs. It’s as 
important as a musician being able to 
read music without actually playing it. 

This is why we attach so much 
importance to REM statements in our 
magazine listings. They're there for 
your benefit as well as ours. 

We insist that our games writers 
use lots of them to show the 
program's structure. Also we ask 
them to give us lists of subroutines 
and variables to assist you to find 
them in the program. 

Finding out why your instructions 
are not working correctly, or why your 


1@ modelicls 

28 pen 2 

38 loacate 2,2 

4@ print “Al is the greatest" 


58 for x = 1 to 1800:next x 
68 locate 2,2 

78 pint spciB 

88 goto8e 
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little green man will move left but not 
right, is easier if you can identify the 
relevant subroutine. Read through 
the listing and try and make some 
sense of what is going on. 

Just in case you missed Al's Beat 
last month (there must be atleast one 
of you) here’s a repeat of a simple 
debugging hint that should make your 
errors easier to identify. Let's assume 
you typed in line 30 of Reaction Timer 
(Page 62, February issue) as: 


3 MODE 1s1NK 8, 12INK 1,24: INK 2,20: 
INK 3,GsPEN 1:DIM 0$(8):GQSUBL88 


Your micro will respond ‘Syntax 
error in 30" and the mistake should 
be fairly obvious— GOSUB 100 needs 
a space. 

But what if there were more 
statements in the line and it were not 
so obvious? A simple hint is to split 
the line in two as follows: 


3@ MODE 1: INK O,1sINK 1,24sINK 2,28 
31 INK 3,6sPEN 1:DIM a$(8) :60SUB1B9 


Now you will get “Syntax error in 
31”. This can now be split: 


32 INK 3,6:PEN 1 
33 DIM m$(8):60SUB180 


and the result will be ‘Syntax error in 
33°. 

In fact, apart from in just one set of 
circumstances, you can split any line 
you want at any colon, and make as 
many extra lines as the program will 
allow you. 

Gradual elimination will narrow 
down the alternatives until you are 
left with the offending statement on 
its own. Your micro can't tell you 
what's wrong with it, but with careful 
checking and perhaps experiment you 
should come up with the solution. 

The circumstances under which 
you have to be extremely careful are 
when the contents of the line are all 
governed by an IF statement. To be 
on the safe side you must leave this 
line complete. 

However in desperation you can 
split it. But be warned. Your program 
almost certainly will not run correctly, 
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although any syntax or similar error 
should be spotted. 

There are a couple of other useful 
techniques that will help you keep 
track of where your program is going 
or where it has got to. The first is the 
use of the command STOP. 

By inserting this at a strategic 
point in your program you can check 
to see if the program is working 
correctly. When it encounters STOP 
your program will halt with a 
message ‘Break at line XXX" when it 
reaches XXX, the line you've chosen 
to insert the command. 

If all is well, you know the error is 
beyond this point in the program. If, 
however, all is not well — perhaps it 
hasn't even stopped — you'll have to 
backtrack from this line to see what's 
amiss. This is extremely helpful in 
identifying a line which may be 
putting something on the screen 
incorrectly. 

This technique is ideal for sorting 
out any graphics errors that may have 
crept into your listing. You can spot 
these most of the time by the way the 
screen looks. 

Let's assume you have a character 
displayed that should be a man and in 
fact it has the appearance of nothing 
more than a shapeless splodge. 

No one can teach you where to put 
the STOP command. You'll probably 
have to establish this by trial and 
error. If, however, you've followed my 
advice and worked out which way the 
program's going from the REM 
statements and accompanying notes, 
you'll know roughly where it should 
go. 

In this case once you've estab- 
lished the correct place, the line 
before the ‘'Break’’ may contain a 
statement such as: 


PRINT CHR€(243) 
This in turn should point you to the 


‘It is important to become reasonably 
proficient at picking your way through 
a listing by just reading it’ 


subroutine which defines SYMBOL 
243. You have probably entered the 
data incorrectly in this subroutine. 

Another useful tip is the use of the 
beep produced by: 


PRINT CHRS(7) 


This command, correctly inserted, 
can tell you whether a particular part 
of the program is being reached or 
not. It can also indicate how many 
times you have been through a loop if 
there is any doubt at all. This is 
particularly useful if you are com- 
pletely in the dark as to where your 
program is going. You can hear the 
beep and you know which line you 
put it in. 

Armed with these three hints you 
should be able to make some inroads 
into that program that just refuses to 
budge. You may not know what your 
error is but at least you'll know where. 

I think that’s enough to be going on 
with, but before | sign off, a word to 
anyone who may be slightly confused 
having tackled Michael Noel's last 
graphics article — any more slips like 
this and it will be his last! 

His explanation of the coordinate 
system for establishing text windows 
appeared to contradict itself at one 
point. Suffice it to say that his second 
statement that “‘column’’ comes 
before ‘‘row” as in CR (Carriage 
Return) was correct. 

Oh! nearly forgot. The answer to 
the Listing | problem is that ‘‘spc18” 
in line 70 should have brackets 
around the number like this: 


78 print spe (18) 


However the micro accepts the 
wrong entry as a variable to which 
nothing has been assigned. It 
therefore prints a O at location 2,2 on 
the screen. If you spotted that, well 
done! 

See you next month. 
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AST month we saw how 
LOCATE and PRINT could 
be used to produce simple 
animation. Now we're going to 
concentrate on the type of 
animation which is obtained by 
clever use of the INK command. 

As you already know, the CPC464 
has three different graphic modes — 0, 
1 and 2 — each with its own unique 
characteristics. For example, Mode O 
can have up to 16 colours on screen 
at any time, Mode 1 has four colours 
and Mode 2 has two colours. 

These are just selections of the 
colours available. Each mode can use 
any combination of the 27 colours 
shown in Table I. 

However despite the fact you can 
use any of the 27 colours in any mode 
the maximum number of colours on 
the screen at any one time always 
remains the same for each mode. 
What you're doing is picking 2, 4 or 
16 colours from a palette of 27. 

Not only can you choose which 
colours you have on screen, you can 
also swap any one colour for another. 
For example, if you have a blue circle 
on the screen you can change it to red 
with one simple Basic command: 


INK X,Y 

where X is the colour number to be 
changed (blue in the example) and Y 
is the new colour (red in the example). 

If you still don’t understand how 
INK. works see Michael. Noels’ 
excellent Graphics article in the 
February issue of Computing with the 
Amstrad. 

The example programs this month 
all use Mode O, the 16 colour mode. 


Colour 
Black 
Blue 
Bright Blue 
Red 
Magenta 
Nauve 
Bright Red 
Purple 
Bright Magenta 
Green 
Cyan 
Sky Blue 
Yellow 


Ink Nuaber 


! 
2 
§ 
4 
a 
6 
d 
8 


Table I: Ink colour numbers 
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You'll notice that at the end of the first 
three programs are the commands: 


MODE | 

CALL &BC82 

PEN | 

PAPER 8 

END 

Triggered by the space bar, all they 

do is restore the colours to their 
original state at switch on. This is 


White 

Pastel Blue 
Orange 

Pink 

Pastel Magenta 
Bright Green 
Sea Green 
Bright Cyan 
Lime Green 
Pastel Green 
Pastel Cyan 
Bright Yellow 
Pastel Yellow 
Bright White 


Part TWO of 
KEVIN EDWARDS’ 
series on Amstrad 
Basic animation 


needed because the example pro- 
grams change the colours to the 
background colour, blue. And blue 
writing on a blue background is very 
hard to read! 

Program | remedies the situation. 
It puts 10 different coloured balls in 
the middle of the screen. This is done 
by lines 40 to 90. 

However if you stopped the 
program at line 90 you'd never see 
them. Each ball is invisible because 
line 60 changes the colours in pens 1 
to 10 to blue (ink 1). The balls are 
drawn, one after the other, the first 
ball with pen 1, the second with pen 2 
and so on. 

However each of these pens has 
been filled with blue ink and, since 
blue is the background colour, 
nothing appears on the screen. The 
balls blend in, but believe me, they are 
there. 

Lines 100 to 170 are responsible 
for the animation. They achieve this 
by revealing a ball, hiding it again and 
revealing the one next to it. 

The variable dispba// contains the 
number of the ball being displayed, 
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18 REM PROGRAM I 

26 ON ERROR GOTO 18 

38 MODE @ 

4@ LOCATE 1,14 

58 FOR x={ 10 10 

60 INK x41 

70 PEN x 

80 PRINT CHRS (231); CHRS(32) 5 

98 NEXT 

{88 dispball=i 

11@ FOR ball=1 70 1@ 

{28 IF ball=dispball THEN INK ball,4 E 
LSE INK ball,1 

138 FOR delay=i TO 1@:NEXT delay 
148 NEXT ball 

150 IF INKEY(47)=@ THEN GOTO 180 
168 dispball=dispball+t 

178 IF dispball>1@ THEN GOTO 100 ELSE 
GOTO 118 

188 MODE | 

198 CALL &BCQ2 

268 PEN 1 

218 PAPER @ 

228 END 


Program | 


ranging between 1 and 10. 1 is the 
leftmost ball and 10 is the rightmost. 

The program selects the first ball 
by initialising variable dispba//to 1. It 
is this ball, indicated by the variable 
dispball, which is changed to 
magenta. This happens because the 
ink in pen 1 is changed to ink 4, 
magenta. 

When the ball was originally drawn 
pen 1 was filled with blue ink. Now 
line 120 has filled it with magenta ink. 
The result is that we see one magenta 
ball. 

Notice that as the loop formed by 
lines 100 and 140 cycles, all of the 
other balls are left in the background 
colour, blue. The ink is only changed 
in the first pen, and so only the first 
ball appears in magenta. 

Line 130 provides a short delay 
and line 150 checks to see if the 
space bar is pressed. If it is the 
program ends and restores the 
colours (lines 180-210). Otherwise 
line 160 selects the next ball to be 
displayed by adding 1 to dispball. This 
new ball is to the right of the previous 
one. 

Line 170 checks to see if the 
previous ball is at the end of the row. 
If itis, it starts again at the first ball by 
changing dispbal/ to 1 (GOTO 100). 
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E REM PROGRAM II 
20 ON ERROR GOTO 148 


3@ DEG 
40 MODE @ 

S@ FOR angle=@ 10 359 

66 MOVE 320,200 

70 DRAW 2B8#SIN(angle) +328, 175#C0S (ang 
Je) +288, INT(angle/34) +1 

80 NEXT 

98 dispsegaent=1 

108 FOR segment=i TO 18 

118 IF segaent=dispsegment THEN INK se 
qment,4 ELSE INK segment, | 

120 NEXT segment 

130 IF INKEY(47)=@ THEN GOTO 168 

148 dispsegment=dispseqment+! 

158 IF dispsegment>!@ THEN GOTO 9@ ELS 
E GOTO 108 

168 MODE 1 

170 CALL &BC@2 
148 PEN 1 

190 PAPER 
20@ END 


Program // 


Remember, only one ball is dis- 
played on the screen at one time 
by the FOR... NEXT loop. Line 120 
ensures this by making dispbal/ 


magenta and turning all the others 
blue. 


This is a bit off overkill as, if you 
think about it, only one ball needs 
switching from magenta back to the 
background colour. However it does 
make the programming easy. 

The end result of all this is a ball 
moving across the screen from left to 
right. Actually you're seeing 10 balls, 
one after the other, each in a slightly 
different place. As the balls flash 
magenta and then re-enter the 
background colour one after the 
other, the eye is fooled into thinking 
that there is only one ball. 

It's quite clever when you consider 
the fact that the animation section is 
produced without PRINTing to the 
screen! 

To move the ball from right to left, 
change the following lines: 


{88 dispball=18 

168 dispball=dispball-t 

170 IF dispball<® THEN GOTO i1@@ ELSE 
GOTO 118 


Program II uses INK in a similar 
way to Program |. This time it 


{@ REM PROGRAM IJ1 

20 ON ERROR GOTO 180 

30 DES 

40 MODE @ 

5Q FOR fudge=@ 10 9 

60 FOR angle=fudge#2 TO 359 STEP 20 
70 MOVE 328,208 

88 DRAW 2004SIN(angle) +320, 1754005 (ang 
le) +288, fudge+t 

9@ NEXT angle 

100 NEXT fudge 

11@ dispstar=1 

120 FOR star=i 10 10 

{3d [F starsdispstar THEN INK star,4 £ 
LSE INK star,i 

14@ NEXT star. 

158 1F INKEY(47)=8° THEN GOTO 180 

160 dispstar=dispstartl 

170 IF dispstar>18 THEN GOTO 110 ELSE 
GOTO 128 

180 MODE 1 

19@ CALL &BCa2 

200 PEN 1 

218 PAPER @ 

228 END 


Program II 


changes the colour of segments in a 
circle. Thé result is a rotating segment 
— rather like a windmill with only one 
sail. 

Lines 30-80 draw a solid circle in 
the middle of the screen. The circle 
consists of 10 segments, each in a 
different colour. The segments are 
numbered 1 to 10 going clockwise in 
steps of 36 degrees from the top of 
the circle. The variable dispsegment 
indicates which one of the 10 
segments is to be displayed — rather 
like dispball in Program |. 

All of the remaining segments are 
changed to the background colour, 
blue. 

Line 90 initialises dispsegment to 
1, picking the first segment, and lines 
100 to 120 turn all of the segments 
into the background colour except for 
the segment indicated by di/spseg- 
ment. 

Line 130 tests the space bar. If it is 
pressed the program will finish. 

Line 140 increments the segment 
being displayed. Line 150 checks to 
see if all 10 segments have been 
displayed. If they have, the first 
segment is selected again and the 
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stars are displayed, one after the 
other, by using the same procedure as 
Programs | and II. The inks filling each 
pen in turn are toggled between ink 4 
and ink 1 — that is, between magenta 
and the background colour. 

lll let you find out how the 
program works. It’s very similar to the 
other two so it shouldn’t be too 
difficult. The more advanced among 
you can have a go at rotating the star 
anti-clockwise. 

Program IV is a quicker solution to 


the balls always be magenta? And 

why not have two balls of different 

colours going in different directions? 
There's lots to do. Bye for now. 


1@ MODE @ 
12 CALL &BC@2 
15 DES 


20 ORIGIN 328,288 

SO MOVE @, 188 

40 FOR it@ TO 360 

4) s=SIN(ik) csC0S (is) 

56 PLOT s#150,c#150,i4 MOD 15 +1sPLOT 


program jumps to line 90. Otherwise 


the jump is to line 100. 

As you can see, the end result is 
very impressive. 

Type in and RUN Program III. It’s 
another demonstration of palette 
switching. By this | mean, changing 
the colours of the inks in the pens. 

The program draws a large star 
with pen 1. Then it draws another 
star, this time with pen 2, rotated 
clockwise by two degrees. This is 
repeated until 10 different stars have 
been drawn, each using a different 
pen. 

When this has been completed the 


the problem posed in Al's Beat in the 
March issue of Computing with the 
Amstrad. 

SINe and COSine functions take a 


long time to calculate their results. 


The same calculations using these 
long winded functions were repeated 
in the original program. That’s why it 
was so slow. Line 41 solves this and 
is responsible for most of the 
increased speed. 

And that’s it for this month. To test 
your understanding, why not try 
changing Programs | to Ill? Must it 
always be a blue background? Must 


8475, c#lGQ:PLOT s#150,c#75 
88 NEXT 


1@@ FOR ids@ 10 15 

118 INK 12,0 

119 NEXT 

120 WHILE 1=1 

13@ FOR if=1 10 15 

14@ INK 1%,26 

158 FOR x=1 TO 100: NEXT 
168 INK i2,8 

17@ NEXT 

182 WEND 


Program IV 


( BN 
sj UNLOCK YOURAMSTRAD YY 


with 
AMSKEY 


ONE OF THE FINEST UTILITIES AVAILABLE 


@ Protect or deprotect your software. 
Essential for transferring programs to 
disc. (Must not be used to infringe any 
copyright laws.) 

@ Multi colour and very user friendly. 
@ Full header details. 

@ On screen instructions and prompts. 
@ Choice of loading speed. 


@ FREE “PEEK-A-CODE” program, find 
the hidden words in your adventure 
games etc. 


Only £6.99 including p&p 


Overseas orders please add £1 postage 


Interlock Services Ltd 
37B New Cavendish St, 
London W1M 8JR. 

Tel: 01-609 8301 


eee 


zy 
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EXPANDABLE RS232 
INTERFACE for the 
AMSTRAD 

3 Options 

@ RS232 (Runs printer, modems, etc) 

@ Parallel (BBC user port compatible) 

@ Sideways ROM  rapnics, modem, utilities) 


Any mix or all on same board; Software available to 
drive modems, cumana, touch pad, Marconi trackball, 
Eprom programmer 


@ CPM software 


to enable file transfer from Apricot, IBM, Mainframes etc 


@ Sideways ROM 


Fully buffered, accept 12 sideways ROMs of your choice 
ie Modem Driver, Printer, Driver, graphics etc. 


Both systems fully cased and supplied with operating 
software and manuals. 


Mail order welcome. Please send SAE for 
full list to: 


TIMATIC SYSTEMS LTD 


Registered Office: Sales and Repairs: 

NEWGATE LANE FAREHAM MARKET 
FAREHAM, HANTS PO14 1AN FAREHAM, HANTS 

Tel: FAREHAM (0329) 239953 Tel: FAREHAM (0329) 236727 


| DEALER ENQUIRIES WELCOME Ge | 
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AST month I left you 
pondering the four card 
coding trick. Here's how 


it works: 

A single card is chosen from five 
random cards. You push the remain- 
ing four cards under a door and a 
friend in that room names the chosen 
card — to the consternation of all! 

Like many conjuring tricks you 
have to do most of the work to make it 
look as though your friend is psychic. 
In this case you obviously have to tell 
him which of the unknown 48 cards 
was chosen. 

You do this by the order in which 
you stack the four cards — remember 
there are 24 different ways — plus 
whether they are passed face up or 
face down. That's the principle. 

The program listed on the next 
page was written to do this trick. Note 
that the cards are input by just two 
characters indicating value and suit. 
Thus the Ace of Clubs becomes AC, 
the King of Spades becomes KS, and 
so on. 

First let's do a test. Assume the 
cards you have are Ace of Clubs, 2 of 
Clubs, 3 of Clubs and 4 of Clubs. Type 
in the program and enter the first 
column in Table | using upper case 
letters. 

If this works then you've almost 
certainly entered the program 
correctly. Now compare the result 
with Table Il and you might begin to 
see how it works. 

To do the actual trick it’s a lot 
easier if you have an inconspicuous 
copy of Table I! handy and to lay the 
five cards out in Bridge ascending 
order thus Clubs > Diamonds > 
Hearts > Spades. The trick depends 
on this order. 

When a card is chosen calculate its 
position in the remaining 48 cards by 
subtracting the number of cards on its 
left in the layout from the chosen 
card’s normal position in the full 52 
card deck. This is obtained using the 
equation: 
position=face value+(suit x 13) 
where suit is O, 1, 2 or 3 for C, D, H 


Prints: 


5 of Clubs j 
6 of Clubs 2 
7 of Clubs 3 
2 of Hearts 24 
3 of Hearts 25 
K of Spades 48 


Enter: 


AC2C3C4C 
AC2C4C3C 


AC3C2C4C 
4C3C2CAC 
AC2C3C4Cc* 
4C3C2CAC* 


Table | 
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to some tricks 
with your micro... 


...as Aleatoire explains the answer 
to last month's card coding problem 


and S respectively. 

Look this number up in Table Il and 
then enter the values (face and suit) of 
the remaining four remaining cards 
(from left to right they are 1,2, 3 and 
4) in the given order. If the number is 
greater than 24 add a trailing *. 

Here is an example. You have 
sorted five cards thus: 


1 2 3 ° 4 
3c JD 7H 8H KS 


and the 8 of Hearts has been chosen, 
which is the 8+26—3=31st card in 
the remaining deck. 

The code for 31 is [2 1 3] plus * so 
enter the cards like this: 


JD3C7HKS* 
Note that the King of Spades 


1 
2 
3 
4 
5 
6 
7 
8 
9 


Table I/ 


(whenever chosen) is easy to code. 
Just reverse the order of the 
remaining cards and add the *. If, in 
the above example, the King of 
Spades were the chosen card, you 
would enter: 


8H7HJD3C* 


With practice you won't need to 
lay the cards out so obviously or look 
up the code. Another improvement — 
which | haven't done — would be to 
draw a picture of the selected card on 
the screen. If anyone can do this send 
it to Paul Daniels, the television 
conjurer — he likes computers and 
maybe he'll buy it. 

The trick is even less obvious to an 
observer when it uses a trailing space 
rather than * to show that the card 
was >24. 

Here's another card trick. Ask 
someone to lay out 52 cards in a line. 
Each card can be randomly face up or 
down. You now lay — up or down — 
another six cards and invite him to 
turn over any one of the 58 cards. 

The final 58 “bit” card pattern is 
fed into a computer and it says which 
card was turned over. The principle is 
the same as before — that is, you have 
“told” the computer what the original 
pattern of 52 cards was with just six 
cards. Computers do this trick all the 
time — it’s called Hamming. 
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Get up to 
some tricks 
with your 
micro 


5 REM(c)Computing with the Amstrad 

1@ DIM deck (52) decode (24) 

20 REM Read the 24 ways to order 3 in 
4 

38 FOR kei TO 24 

40 READ decade(k) 

5@ NEXT k 

68 DATA 123,124, 132,134, 142,143 

70 DATA 213,214, 231,234,241 243 

BD DATA 312,314, 321,324, 241,243 

9Q DATA 412,413,421 ,423,431 432 

100 LINE INPUT"The four cards are - "; 
coda$ 

118 FOR kei 10 92 

120 deck(k)=@ 


Program |: The CARD4 trick 


UK's LOWEST PRINTER PRICES 


138 NEXT & 
140 FOR k=2 TO 8 STEP 2 

158 valuesINSTR("AZ3456769TJOK" MIDS (c 
ode$,k~1,1)) 

160 suit=INSTR("CDHS" MIDS (codes, k,1)) 
=| 

170 deck (suit#i3+value)=k/2 

180 NEXT k 

198 i= 

200 j=8 

210 FOR k=i TO 82 

220 IF deck(k)=@ THEN 258 

230 IF j>@ THEN 268 

240 IF i}@ THEN jsdeck(k) ELSE i=deck( 
k) 

250 NEXT k 

2460 code={OB#itiB4 j+deck (k) 

278 FOR card=1 TO 24 

280 IF code=decode(card) THEN 388 

298 NEXT card, 

300 IF LEN(code$)>8 THEN card=card+24 
3i@ value=-1 

320 value=valueti 


330 IF deck(valuet{)=@ THEN card=card- 
1 

340 IF card>@ THEN 328 

350 suitSINT(value/13) +1 

360 value=value MOD 13+1 

370 PRINTThe card is the "sMID$("A234 
5o7B9TIGK" value, is" of "sMIDE(". 1... 
» Clubs  DiamondsHearts Spades ",su 
it*B,8) 

380 GOTO 108 


Give your fingers a rest... 


All the listings from this month’s 
issue are available on cassette. 


See our special offer on Page 77. 


FULL PRINTER SUPPORT FOR THE AMSTRAD 
ORDERED TODAY — DELIVERED TOMORROW 


DOT MATRIX 


EX VAT INC VAT 
BROTHER _HRS £133.00 £152.95 
SHINWA ice : 75 
EPSON RX8 £185.00 
EPSON Rxa0 He + SPECIAL OFFER £242.00 £243.80 
Bie NS £347.00 £399.05 
EPSO Be 0. £314.00 £361.10 
EPSON FX100 £425.00 £488.75 


NEAR LETTER QUALITY 


5.00 £281.75 


KAGA KP-810 £245. 
SPECIAL OFFER £245.00 £281.75 
£340.00 


rate 080A 


KAGA KP-910 £391.00 
CANON 41156A 


SPECIAL OFFER £340.00 £394.00 
DAISY WHEEL 


£225.00 £258.75 
£325.00 £373.75 
£356.00 £409.40 


AMSTRAD ADD ONS 
TASWORD TWO £15.60 £17.95 
TASPRINT £7.74 £8.90 


TASCOPY 
PRINTER CABLE 


DAISY STEP 2000 
JUKI_6100 
EPSON DX100 


£7.74 £8.90 
£411.00 £12.65 
COLOUR PRINTERS 


EPSON JX-80 SPECIAL OFFER £450.00 £517.50 


DISK DRIVES 


AMSTRAD DDI-4 £160.00 £184.00 
ducational, Government plus Overseas Orders Welcome. Delivery Printers (Securicor) £10.00 
Printerland 
Unit 27, Estate Buildings, Railway St, Huddersfield HD1 1JP 
Showroom open Mon-Fri 9-6pm. Sat morn 9-1pm 
Tal: Huddersfield (0484) 514105 or (0484) 687875 
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The graphics adventure that YOU voted one of the best 30 adventures for 
the Spectrum (Crash magazine survey). The Amstrad version is only 
available by mail direct from us, at a price of just £5.50. Brilliant graphics, 
dual-mode display, super-fast responses, huge vocabulary, and peopled 
with some of the strangest characters you are ever likely to meet! 


AMSTRAD 
USEFUL SOFTWARE 


GRASP 
Graph and Function Plotter. Hardcopy to Epson MX80 or compatible 
printer. The fast & easy way to plot data or formulae. Wide range of uses, 
business reports & demonstrations, student projects, scientific hobbies. 
We even know of people selling graph-production services to authors! 5 
Star reviews & a mountain of favourable comments from users. Price: 


-50. 
Note: Our GRASP-compatible database FASTFILE will be available soon. 


FLEXIFREND 
The doyen of home budgeting programs. Easy to use despite many 
innovative features (e.g. ‘icon’ calculator, automatic forward predictions 
etc.). Price: £7.50. 


TOOLBOX 
How much would you expect to pay for a Sprite generator program with full 
animation sequencing? Over £8 perhaps? How about if you added a Screen 
designer program, a tape file transfer utility and a M/C Monitor for entering 
short machine-code programs and peeking into the operating system? All 
these are on our Toolbox cassette, at a price of only £4.95. A must for any 
programmer. ‘Excellent value for money — HCW Review’. 


CAMEL MICROS 


SENSIBLY PRICED SOFTWARE THAT WON'T GIVE YOU THE HUMP! 
for 
AMSTRAD CPC464 (CASSETTE) 


Cheques/P.O.'s to: 
CAMEL MICROS, Wellpark, Willeys Ave., Exeter EX2 8BE. 
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THANK you for a wonderful 
magazine. What | have read / 
have thoroughly enjoyed. 
Keep it up. 

Here is a small but useful 
program. It is basically a new 
mode, which gives you very 
big writing. 


10 MODE @ 

208 OUT &BCOR, OUT &BDOB, 127 
3@ OUT XBCOG,4:0UT &bDe8, 18 
40 OUT &BCQ8,5:0UT &BDeG, 15 


50 QUT K6CA0,4:QUT Bed, 15 
60 OUT &BCBB,7:0UT &BDe0,17 
70 WINDOW #8,1,28,1,15 

80 ORIGIN 0,148 


All normal writing will work, 
and so will the graphics. Any 
attempt to change an ink or 
the border will not be recog- 
nised until after a mode 
change. Try using Modes 7 
and 2. 

To revert to the original 
writing, type in this: 


{@ NODE 1 
20 OUT &BCOG,G:OUT &BDOB,63 
3@ OUT &BCO8,4:0UT &BD88,37 


48 OUT &BCBO,5:OUT &Bdee,0 
9@ OUT &BC88,6:QUT &BDO8, 25 
68 OUT &BCOB,7:0UT &BDR8, 30 


/ hope you will find these 
routines useful. They have 
found a place in a few of my 
programs. — M. Haysman, 
Hainault, Essex. 


Let there 
be light 


DURING a recent prolonged 
typing session at my CPC464 / 
became increasingly aware of 
the need for some form of caps 
lock state indication. 

Would it be possible, 
therefore, to fit an LED, similar 
to the BBC Micro, to achieve 
this? 

As an electronics engineer 
by profession the installation 
would pose no problems, but 
however finding where to 
connect the LED most cer- 
tainly would. 

Any comments or helpful 


Fancy another 
super-large mode? 


advice in this direction would 
be gratefully appreciated. — J. 
Findlay, North Shields, 
Tyne & Wear. 

@ We are unable to assist Mr 
Findlay with his excellent idea. 
Perhaps one of our readers 
might help him. 


In search 
of decent 
descents 


1 AM a humble beginner (not 
even at novice level as yet) 
finding my confused way 
through the jungle of Basic 
and jargon and who has had 
greatness thrust on me by 
being made “Person in Charge 
of Computing” at a Bir- 
mingham school using an 
RML 480Z. 

/ have a Vic 20 plus a new 
Amstrad CPC464 for my own 
private pleasure and by sheer 
accident / came across your 
publication, which has bewil- 
dered me completely by being 
written in such a way that even 
/ can understand it. 

/ have immediately placed a 
regular order with my news- 
agent for this most marvel- 
lous of publications (so | 
cannot take advantage of your 
reduced subscription — it’s 
worth the extra £2 to me 
anyway). Now three ques- 
tions: 

As a teacher | want to 
obtain a printer that will print 


Your wish our command 


| WAS delighted to find your 
magazine full of useful infor- 
mation. 

Last month | bought the 
CPC464, and after loading 
some software / noticed a 
screen message: “‘Amsoft 
Presents Electro-Freddy. 
Loading...".. Then the tape 
restarts and loads the main 
program. 
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correctly, that is with true 
descenders so that my pupils 
will have properly printed 
worksheets. 

Can/ obtain such a machine 
to run with my Amstrad, and if 
so which one? 

ls the RML 480Z the same 
or nearly the same as the 
Amstrad? | read somewhere 
that a program for the 380Z 
ran without alteration on an 
Amstrad. 

What would | need to do to 
alter programs from or to 
Amstrad from 480Z. 

/s there any way to get my 
Vic 1515 printer to operate on 
my Amstrad? —M. Reynolds, 


_ Birmingham. 


@ Any Epson-compatible 
printer will print true descen- 
ders, in fact most of the more 
expensive printers will. 

The only similiarity bet- 
ween the RML and the 
CPC464 is the Basic, and even 
in that there will be several 
variations — especially when 
concerned with graphics. 

The Vic 1515 printer will 
not, we're afraid, work on the 
Amstrad. 


Curing the 
jitters 


RE the letter in the March 
issue headed “Got the jitters”, 
from Paul O'Neil of Airdrie, the 
oscillation of the text on the 


GT64 monitor is not caused, 
as you suggest, by the micro. 


My question is, how do / 
achieve this ona program| am 
writing, could you please give 
me the command? — §. Joy, 
Hartlepool, Cleveland. 

@ There is no secret. You 
write a small program which 
contains your graphics, the 
last line of which should read 
RUN “filename”. this will load 
your main program and run it. 


Poot 


The fault lies in the monitor. 
/ had the same trouble — 
indeed | noticed it on every 
GT64 monitor that | saw on 
display in various shops. 

! wrote to Amstrad, who 
replied: “...the problem.... is in 
fact caused by distorted AC 
waveform from the mains. 

“However as we have now 
developed a modification to 
overcome this problem you 
should return your monitor to 
your retailer who should con- 
tact us”. 

/ did this as recommended 
and the fault has been cured. — 
K. Chambers, Blackpool, 
Lancs. 


Overkill 


! READ in January's Comput- 
ing with the Amstrad that 
someone did not know how to 
clear the keyboard buffer. The 
answer is: 
Call &BBO3 

The only problem is it also 
disables the Break key. So only 
use it when the program 
works. The only time you can 
break it is when there’s an 
input. 

/ also know a little program 
which makes a nice display: 


1@ SPEED INK 255,255:CLS 
20 CALL &BD23:CALL &BD22: 
BOTO 28 


— M.A. O'Connor, Spalding, 
Lincs. 

@ Your call not only flashes 
the buffer — it does a hard 
reset. This is like taking a 
sledgehammer to crack a nut. 


One who 
cares 


!T is becoming increasingly 
rare to find a computer shop 
that cares. One such is NSC of 
Manchester. 

/ recently took my CPC464 
back to the High Street store 
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that | had purchased it from to 
repair the Space bar which had 
come adrift. 

/ was told that it would have 
to be sent to their workshop 
and could take up to two 
weeks to be returned. 

/ determined not to wait but 
to attempt the repair myself. 
However by chance / visited 
NSC, who not only did the 
repair on the spot but then 
insisted that there would be no 
charge! 

! was also able to purchase 
several items of software that! 
hadn't previously been able to 
find locally and at very 
reasonable prices. 

! cannot help but recom- 
mend other readers of this 
excellent magazine to this 
computer shop that not only 
cares but has a sense of 
humour as well! — P.B.C. 
Gardener. Manchester. 


Point 
missed 


UNLESS / have missed the 
point of Trevor Roberts’ pro- 
gram to align decimal points 
(Computing with the Amstrad, 
March, Page 52) it would 
seem that it ignores the fact 
that there is a standard Basic 
command to do that very thing 
— PRINT USING. _ 

! certainly would not have 
bought a CPC464 if it did not 
have this capability, as it is so 
difficult to display columns of 
numbers without it. 

The following little program 


WE welcome letters from readers — about your 
experiences using the CPC464, about tips you would 
like to pass on to other users... and about what you 
would like to see in future issues. 
The address to write to is: 
Postbag Editor 
Computing with the Amstrad 


Europa House 


68 Chester Road 


Hazel Grove 


Stockport SK7 5NY 


Dosthay 


will achieve the same results 
as Roberts’, but much more 
efficiently: 


1cls 

MODE? =» = ts 

3Q FOR loop= 1 10 5 

4Q@ READ number 

50 PRINT SPC(35); 

8 PRINT USING "HEH. ##4"5n 
umber a0 : 
TONEXT loop 

BH DATA 1.2,12.3,12.34,123. 
Cee 


The results differ from 
Roberts’ by the inclusion of 
trailing zeros, which we would 
normally want anyway: 

1.200 
12.300 
12.340 

123.456 

Many of us are still 

exploring the capabilities of 


! FEEL / must congratulate you 
on the quality of Starfleet by 
Mr R. Waddilove in the March 
issue of Computing with the 
Amstrad which | have just 
typed in. 

The game is only spoilt by 
the extreme stiffness of my 
official Amstrad joystick which 
almost makes me inclined to 
use the keyboard controls. 

So far my abysmal score is 
360 on screen 2. 

One query though, what do 
the data statements in lines 
1930 to 1950 do? 
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/ have worked out how 
most of the rest of the program 
works but have obviously 
missed the significance of 


these statements. — A.J. 
Billingsley, Trowbridge, 
Wilts. 


@ The lines you mention 
contain actual graphic charac- 
ters with 63 subtracted from 
their Ascii code, so that they 
can be printed as a listing. This 
is how Roland very cleverly 
has printed large text on his 
instruction screen. 


the CPC464, so that it is 
inevitable that there are many 
gaps in our knowledge. But 
there is surely no excuse for 
publishing programs which do 
not exploit the near Microsoft 
standard Basic which is incor- 
porated into Locomotive 
Basic. 

/ have seen many program 
listings which are sprinkled 
with % and $ signs, both of 
which are almost redundant in 
standard Basic, as one can 
declare integer and string 
variables by DEFINT and 
DEFSTR (incidentally, why 
was DEFDBL not included in 
Locomotive Basic?). 

Most authors have realised 
that LET is redundant, so why 
do they persist in being so free 
with the percents and dollars? 

Notwithstanding the lack of 
DEFDBL, the lack of Caps Lock 
indicator, and the lack of 
PRINT@ (we have to use 
LOCATE, then PRINT) the 
CPC464 jis a remarkable 
machine for the money, and 
your magazine does it justice. 

/ have learnt many useful 
wrinkles (for example CALL 
&BCO2 to return to default 
colours), and Mike Bibby’s 
articles on hex, binary and 
machine code have been 
particularly informative. — Dr 
M.V. Hounsome, Hale, 
Altrincham. 


 |'m afraid you have missed 
the point. Trevor's routine is 
designed to accept any 
number and avoid rounding 
errors. If you replace the last 
piece of data in line 80 with 
123.4567, say, you'll see that 
your routine fails in this 
respect. 


We made an inhouse 


decision to keep our $ and % 
symbols as clearly labelling 
variables makes debugging 
easier for the less experienced. 


Filling 
the gap 


AFTER having looked through 
your first three issues | am 
most pleased that at last there 
is a magazine devoted to 
teaching the Amstrad owner 
how to program the CPC464 
and get the most out of the 
machine’s capabilities. 

The user manual supplied is 
void of any real practical 
examples regarding many of 
the CPC464’s functions. 

/ previously owned a ZX 
Spectrum, and although / 
obtained a good understand- 
ing of Basic it was only when 
/ purchased the CPC464 that/ 
realised the difference bet- 
ween Sinclair Basic and the 
form more widely used by 
other machines. 

/ therefore congratulate you 
for filling the gap of just a 
games magazine with a few 
“state of the industry” type of 
articles and an abundance of 
adverts. 

Computing with the 
Amstrad is worth every penny 
and | am finding it invaluable 
to understand machine code (a 
complete mystery before), as 
wel! as your articles on sound, 
graphics etc. 

! hope you will long 
continue to produce such an 
informative and entertaining 
magazine. — P. Goodwin, 
Sunderland. 


Missing 
MERGE 


/ DO not suppose it took those 
who bought the Amstrad disc 
drive very long to discover that 
it cannot MERGE programs, 
although your reviewer did not 
mention this. 

However my ‘problem is 
that | thought the system was 
going to come with random 
access built in, just like the 
drive | had in the US for my 
little Radio Shack co/our 


computer. 
Unless one of your clever 
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contributors can come up with 
a CP/M program for me/ fear it 
will be a long, long time before 
/ manage it myself. 

! hope as time goes on that 
you will publish a series on 
CP/M along the lines of the 
two paralle/ series you are 
running on bits and bytes and 
machine code. — A.B. Pur- 
brick, London. 


Christian 
link 

WE would appreciate your 
mentioning the newly formed 
Christian Micro Users Associ- 
ation. We hope to link together 
a large number of Christian 
micro users and also to 
promote the use of micros in 
church activities. 

There is not only a great 
need to discover the few 
individuals and companies 
producing ‘'Christian’’ 
software, but also to share the 
expertise and ideas of the 
many people who have sought 
to use micros in their church- 
related activities. 

Anyone who sends a large 
SAE to Christian Micro Users 
Association, c/o 6 Walkley 
Street, Sheffield S6 3RG, will 
receive further details and a 
sample magazine. — P.A. 
Clarke (secretary), Shef- 
field. 


Hard on 
the eyes 


REGARDING the review of 
Level 9's Colossal Adventure 
and the letter from R. Pope, 
both published in your March 
1985 edition, | have pur- 
chased both the Level 9 and 
the Amsoft (Abersoft) version 
of this adventure, and find the 
plot and room descriptions far 
superior on the cassette from 
Level 9. 

But, like R. Pope, | find the 
Gothic script rather hard to 
read. There is a way to play 
this game using the Amstrad 
standard text though, and this 
is what you do: 

Using LOAD’, load the 
program into the CPC464. 
This will result in the word 
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Light on windows 


! ENCLOSE a short listing 
which may throw some light 
on the use of defining of 
windows to fill boxes with 
colour (S.G. Squires letter and 
response in the March issue of 


128 MODE 8 

148 CLS 

168 2=0 

188 DIM p(4,3) 

208 FOR v= 1 10 3 

22@ FOR x = To 4 

240 252+! 

268 pix,y) =z 

280 NEXT 

300 NEXT 

328 FOR y = 1 T0 3 

348 FOR x = 1 10 4 

368 SOSUB 1020 

380 NEXT 

400 NEXT 

420 REM take key input 

440 inS=INKEYS$:1F in$="" TH 
EN 440 

460 in$=LOWER$ (ins) 

490 IF in$="q" THEN y=1:G0S 
UB 648:605UB 1520 

5@@ {F in$="a" THEN y=2:G0S 
UB 64@;G0SUB 1520 


‘Ready’ on the screen. 
ENTER the following: 


NENORY &2FFF: LOAD": CALL 
£3008 


The adventure will now 
load and run with the normal 
graphic set. — Andy Wilkins, 
Westbury-On-Trym, Bris- 
tol. 


Riddle of 
code 25 


COULD anyone explain how to 
use control code 25 decimal 
on the Amstrad? 

/n my machine code pro- 
gram | wanted to redefine a 
character for a particular use. 
Using contro! code 25 dec, 
followed by the 9 bytes as 
specified in the manual just 
doesn't work, 

These were sent out to 
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while at the same time 
providing a simple wrap- 
around slider puzzle. You use 
the keys Z, A, Q, W and E to 
move the rows and columns. — 


520 IF in$="2" THEN y=3:60S 

UB 64@:60SUB 1520 

S40 IF ing="w* THEN x=1:G0S 

UB 780:60SUB 1620:%=2:G0SUB 
78Q:GOSUB 1620 

56B IF ing="e" THEN x=3:G08 

UB 78@:GOSUB 1620:x=4:GOSUB 
7BQ:GOSUB 1628 

58@ GOTO 440 

608 END 

620 REM re arrange top line 

640 dum=p(1,y} 

668 FOR x= 1 10 3 

680 a 

700 NEXT 

728 p(4,y)=dum 

748 RETURN 

76Q REM re arrange a chan 

788 dum=p(x,1) 

800 FOR y=1 TO 2: plx,y) p(x 

sVtL) :NEXT 

820 plx,3)=dum 

848 RETURN 


BB5A-TXT OUTPUT, which 
should obey contro/ codes. 

The only way that / have 
found so far of redefining a 
character is shown in this 
short assembler listing: 


LD DE,255 
LD HL,MATRIX 
PUSH HL 

CALL BBAB 
POP HL 

LD A,255 
CALL BBAS 


This does rather limit you as 
to the choice of which 
character to redetine. Other- 
wise you have to set up a 
matrix 256 — first character *8 
Jong. — R.G. Bennett, Roth- 
erham, S. Yorks. 

@ The subroutine TXT 
OUTPUT (&BB5A) is sup- 
posed to accept all control 


P.W. Hutchinson, Harlow. 
@ A very neat little program. 
We are sure readers will not 
only benefit from its program- 
ming content, but also have a 
lot of fun with it. 


1888 REM locate and print w 
indow 

1828 WINDOW #1, 4¥x-1 44x42, 
Sty-2 , S#y+2 

1042 PAPER #1,p(x,y) 

1068 PEN #1, 153-p(x,y) 

1088 CLS #1 

1108 LOCATE #1,1,1 

1128 PRINT #1 ,CHRS(G4+p (x,y 
ye 

1140 LOCATE #1,2,2 

1168 PRINT #1, CHRS(d4+p (x.y 


iy 


1220 RETURN 
1500 REH alter a line 


1828 FOR x= 1 10 4 
1540 GOSUB 1020 


1540 NEXT 


1588 RETURN 


1680 REM alter a column 
1628 FOR y= 1 103 

164@ GOSUB 1028 

1668 NEXT 

148@ RETURN 


characters from O to &1F, but 
for some unknown reason 
code 25 fails. 

Can anyone out there help 
us find out why the code is 
being incorrectly executed? 


Video 
hook-up 


/ WRITE with reference to the 
letter from J.D. Smith of 
Fareham, Hants (March 1985 
issue) concerning colour mon- 
itors and video recorders. 

You may be interested to 
know that / am using a Fidelity 
CTM1400 monitor/TV suc- 
cessfully with the CPC464 
using the RGB output direct to 
the CTM1400 via the latter's 
SCART input socket. 

In addition the CTM1400 
can be used with a video 


May 1985 71 


Post 


recorder using the recorder’s 
video output socket and audio 
output. 

As the SCART input is a 27 
pin device (plug readily avail- 
able), both the CPC464 and 
the video recorder output with 
audio can be wired via the 
same plug. 

This assumes of course that 
the CPC464 is not in use at the 
same time as the video 
recorder, otherwise separate 
leads can be made up. 

Picture quality from both 
video recorder and CPC464 is 
outstanding. 

/ wish continued success to 
your magazine. Beats its 
competitors hands down, 
including the ‘Official Mag!’ — 
J.E. Vivian, Cheltenham, 
Glos. 


Editor 
markers 


MAY | suggest a couple of 
additional lines to your Febru- 
ary Text Editor to provide 
markers at the top of the 
screen to show where the 
currently set tabs are: 


2025 PRINT #4, 
)-column’(i- 


SPC(colu 


2135 PRINT #4,SPC(71: 

AC4h)y : 
435 LOCATE #4,5,1:FOR ist T 
O 4:PRINT#4 ,9PC (colunnt (i) - 
column’ (i-1)-1) ;CHRS(211) 33 
NEXTsPRINT #4, $PC(7i-coluan 
WAVY 


And what if you realise that 
you've started printing and 
there’s a mistake in the text? 
You don't want to wait for the 
whole thing to print out, do 
you? So put in these two fines: 


2335 LOCATE #1,23,3: :PRINTAG 
"Press. SPACE BAR to interr 


upt" 
2355 IF INKEYCAT) 4 THEN R 
ETURN : 


/ have found that these help 
enormously, and perhaps they 
will help other readers. — Jim 
Barton, Beverley, North 
Humberside. 
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Relocating screen dump 


/ READ with interest the article 
by Roland Waddilove on a 
screen dump utility (Comput- 
ing with the Amstrad, March 
1985) and being the owner of 
an Epson RX80FT promptly 
set about entering the listing. 

When finished | followed 
the instructions on running the 
program only to have an error 
report — “Memory full”. Not 
being what ! would call a 
proficient programmer, | set 
out to try to discover the cause 
of the offending error. 

After making absolutely 
sure that the listing had been 
typed in correctly it occurred 
to me that perhaps it was not 
written with the dise drive in 
mind. 

So being new to DOS / read 
through the User Guide to see 
where in memory the system 
lives, and there on page F 3.2 
is the warning DDI-7 interface 
reduces memory by 1280 
bytes. So what do / do now? 

OK, let's add this subtract 
that, mess about with all these 
funny letters that some people 
say they count with and 2k 
cups of tea later this is what | 


find. Line 120 Memory Himem 
ete. 

And, would you believe | 
get a screen dump. Now for a 
guy who doesn’t really know 
what he’s at with machine 
code this was real progress. 

However after more key 
bashing | found that the whole 
thing can be simplified to:- 
720 sum=0. Yes, that’s right, 
no memory setting and it still 
works. 

Still any other disc user that 
found the same problem will 
now be able to make the 
necessary mod and dump to 
printer without the need to 
unplug DDI-1. 

By the way, you can 
actually set memory at any- 
thing reasonable. Try &8A5BO 
as an example. But chen of 
course FRE(O) will show a vast 
reduction in memory pool, so 
the program you wish to dump 
will be limited. 

Try the above and then do 
PRINT FRE(O) and see how 
much more memory there is. — 
L.J.Batty, Castleford, West 
Yorkshire. 

@ Although you appear to 


have found a solution to the 
problem, it is in fact an 
unsatisfactory one. 

The screen dump loads to 
the same area of memory as 
the disc drive and will disable 
the drives. Here is a better 
solution for anyone with 
access to an assembler. 

The screen dump will work 
if it is relocated. The only way 
is to type in the assembly 
listing using an assembler and 
set ORG to about &AOOO and 
reset himem. This should be 
well clear of anything. 

The variable ‘‘colour” is the 
colour to be ignored by the 
dump — that is, the paper. Set 
this to what ever you want 
(you can always POKE start 
+8&4F, colour afterwards). 


POKE start + &4F, colour 


The assembler listing is 
correct except that the bottom 
three instructions in the last 
column should be at the top — 
they must have been pasted in 
the wrong place. 

| hope they didn’t cause too 
much confusion. 

Roland Waddilove 


Disc drive 
hang-ups 


THE word processing program 
by Roland Waddilove in the 
February issue of Computing 
with the Amstrad has proved 
extremely useful. 

However when / added a 
disc drive to my Amstrad it did 
not perform as expected, 
giving me unexpected hang- 
ups when the load, save or end 
program options were selec- 
ted. 

/ assume this is because of 
memory location problems 
associated with the disc drive, 
and the disc requirements for 
loading and saving. 

/ should be most grateful to 
hear if there is a modification 
to the program which will 
solve these problems. — B.M. 
Howe, Bristol. 

M@ Here are a few notes on 


how to alter TextEd so that it 
will run with the disc drive. 

The machine code must be 
located lower down in the 
memory for the program to run 
properly. The code should be 
OK at about &AOOO, so go 
through the program carefully 
and change all CALL &ABXxX, 
to CALL &AOXX. 

Change the following lines: 


260 change POKE ge to 
POKE &AG8Q : 

288 change ast hex no. 
from AB to AQ. 
298 change last hex no. 


1840 ch nge to OPEN 3 
namest"|" : : 


“Ebagum” 


WHEN /NPUTting a string, if a 
comma or any non-letter is 
present | am often instructed 
to “?Redo from Start”. 

Try entering “EBAGUM, 
MUGABE" on the Palindrome 
Tester, in the April issue, and 
you'll see what | mean. 

Finally, congratulations to 

Mike Bibby for his excellent 
machine code tutor series, but 
could he please give a ready- 
reference chart of opcodes and 
firmware routines. — William 
Redgrave, Maidenhead, 
Berks. 
@ INPUT uses commas to 
separate different items, so 
EBAGUM, MUGABE is united 
as two inputs — see this 
month's beginners’ article on 
page 16. 

As for the tables, this 
month’s machine code article 
should provide what you need. 
Turn to page 26. 
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OOR old Cedric has lost 
his toys. Can you help him 
to find them? 

They are all hidden in boxes which 
are labelled 1 to 8 across and A to E 
down. There are in all 20 pairs of toys 
to find. 

When the program is run you will 
be asked to type in your names and 
then take turns to find a matching 
pair. 

You type in the coordinates of the 
two squares you want to look at 
(number first) and if the two toys are 
identical the computer increases your 
score by one and lets you have 
another turn. 

If they are not identical the toys 
disappear and your opponent can 
have his turn. The winner is the one 
who finds the most toys at the end of 
the game. Steve Lucas 


Ss 
VA rs 
4 the layers: 
Names awo Pla nd 
amei$name2s scores se rs of toys fou 
919682 Number B 


z% 


ay : 
gag-ats Arr a i 
ob%(x) erate for grapm 
Coo 
\nput $4 oe 
wy che ck for 


4$,85.0:5 c 
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qa,ab pape 
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Set Scores, 
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1@ REM ## Cedric and the lost toys ## 
20 REM ## by Steve Lucas ## 

30 REM (c) Computing with the Amstrad 
40 MODE 1:INK Gy Le INK 1,24eINK 2,202] 
NK 3,4 

5@ REN #* define the characters ## 

6@ SYMBOL AFTER 208 

7@ SYMBOL 215,128,128, 255,3,255,128,1 
28, 128 

88 SYMBOL 216,1,1,255,64,255,1,1,! 

9@ SYMBOL 217,156,156, 144,144, 144,259 
128 


100 SYMBOL 219,0,0,8,0,0,0,128, 128 
118 SYMBOL 219,7,3,1)1,1,1,3,7 
128 SYMBOL 220,240,224, 192,192,192, 19 


2,224,240 

138 SYMBOL 221,15, 24,63,5,13,9,18,28 

140 SYMBOL 222,240, 140,254 ,48, 236,36, 
18,10 

150 SYMBOL 223,14,31,55,127,63,3, 14,8 
140 SYMBOL 224,0,8,152,248,152,24,8,d 
178 SYMBOL 225,1,1,1,1,1,1,39,34 

180 SYMBOL 226,192, 192,192, 192,196, 19 
6,245,254 

190 SYMBOL 227,15,63,255,25,31 25,31, 
3 

200 SYMBOL 228,248,252,255,216,24B,24 
8,214,216 

218 SYMBOL 229,8,96,112,88,204,252,2, 
192 

228 SYMBOL 238, 183,159,69, 185,95, 187, 
44,71 

230 SYMBOL 231,238,249, 154,157, 250,22 
1 52,226 

240 SYMBOL 232,192,128, 154,191,255, 25 
565,113 

250 SYMBOL 233,1,255,255, 255, 255,08, 


a 

240 SYMBOL 234,24,24,48, 255,255, 28,28 
148 

270 SYMBOL 235,8,2,2,250, 254,48, 48,12 
a 

280 SYMBOL 236,8,0,15, 11,15, 255,127,6 


3 

298 SYMBOL 237,128,128, 240,248, 240,25 
5,255,255 

300 SYMBOL 238,8,254,222, 142,222, 254, 
254,12 

310 SYMBOL 239,0,15,9,9,127,127,127,4 
a 

320 SYMBOL 240,0,0,255,253,253,220,20 
448 

330 SYMBOL 241,136,112,127,127,127,14 
110,38 

340 SYMBOL 242,192,224,224,224, 248,20 


4,14, 174 

350 SYMBOL 243,1,3,3,3,15,25,56,58 
360 SYMBOL 244,255,133, 255,5, 255,255, 
12,12 

370 SYMBOL 245,255,136, 255, 136,255,25 
524,24 

38 SYMBOL 244,0,168,224, 160,235, 255, 
53,63 


398 SYMBOL 247,0,2,3,2,127,255,178,25 


4 

408 SYMBOL 248, 248,156,248,72,72,16,1 
44,224 

410 SYMBOL 249,7,28,15,9,9,4,4,3 

428 SYMBOL 250,0,0,192,48,252,255,24, 
24 

430 SYMBOL 251,8,8,15,24,127,225,24,2 
4 

449 SYMBOL 252,8,0,0,8,232,252,8,8 
45@ SYMBOL 253,0,128,143, 241,255,127, 
3,2 

448 SYMBOL 254,128,224,0,0,2595,254,25 
2,248 

470 SYMBOL 255,1,1,1,1,255, 127,63, 31 
480 REN #4 define the graphics for to 
ys i 

498 aa$=CHR$ (255) +CHRS (254) 

508 ab$=CHR$ (253) +CHR$ (252) 

518 ac$#CHR$ (251) +CHRS (258) 

528 ad$=CHR$ (245) +CHRS (244) 

538 ae$=CHR$ (243) +CHR$ (242) 

540 af $sCHR$ (249) +CHRS (248) 

558 ag$=CHR$ (247) +CHR# (246) 

540 ah$eCHR$ (241) +CHRS (248) 

578 ai $=CHRE (239) +CHRE (238) 

58@ aj$=CHR$ (236) +CHR$ (237) 

598 ak#=CHR$ (234) +CHR$ (235) 

00 al $sCHR$ (232) +CHR$ (229) 

610 am$=CHR$ (238) +CHRS (231) 

620 an$=CHR$(227)+CHR$ (228) 

638 ao$=CHR$ (225) +CHR$ (226) 

648 ap$=CHR$ (223) +CHR$ (224) 

650 alge" " 

648 ag$=CHR$ (221) +CHR$ (222) 

678 ar$sCHR$(219) +CHR$ (228) 

680 as$=CHR$ (217) +CHRS (218) 

698 at$=CHR$ (215) +CHRS (216) 

700 RANDOMIZE TIME 

718 GOSUB 17BBrREM ## instructions ## 
720 REM ## HIDE OBJECTS IN THE ARRAY 
tt 

738 DIM ob4(18, 18) 

740 zal 

750 FOR y=i 10 :FOR x#i 10 5 

760 az INT(RND(1) #5) +1 1b2INT(RND (1) #8) 
+1 


778 IF ob%(a,b)<>0 THEN 768 

780 obd(a,blezkiztezdtlelF 24228 THEN 
2431 

798 NEXT x,y 

880 REM ## wait to start game +4 

Q1@ PRINTSPRINT" Press the <Space B 
ar) to start." 

820 agsINKEY$:IF a$<>" “THEN 928 

838 REM ## input players names ## 

848 CLS:PEN 1: INPUT"Player 1 please e 
nter your nage "snamel$sPRINT 
CHR$ (7) 


B5@ INPUT"Player 2 please enter your 
name “sname2$sPRINT CHRS(7) 
Bo REM #* draw the board ## 


878 CLS 

BGG ORIGIN 1,180 

898 FOR x=@ 0 8 

908 HOVE x#44,11 DRAWR @, 3581 
910 NEXT x 


928 WINDOW @1,1,35,28,25:PAPER #1,2:0 
LGWL 

938 MOVE @,299:DRAWR S58,8,! 

948 TAG 

950 HOVE @,26@:DRAWR 558,@,1 

960 HOVE S5@,@:DRAWR @,299,1 

978 FOR y=@ TO 4 

980 MOVE @,y#52: DRAWR 55@,@,1 

990 MOVER -38,S@:PRINT CHRS(69-y); 
1@8@ NEXT 

1810 TAGOFF 

1028 REM #4 label axis ## 

1038 PEN 2:FOR x= @ TO 7: LOCATE x#4+ 
2,2:PRINT xtlysNEXT x 

184 REM ## main control loop...repea 
ted until all toya have been found ## 
1050 WHILE j4<28 

{068 GOSUB 1178 

1078 WEND 

1088 REM ## end of game.. display sco 
res #* 

1898 CLOPLSPENH! @rPRINT#! “Well Done 
you found all the abjects" 

1188 PEN @1,3:PRINT@# »namel$;" found 
"sald;" toys" 

{£18 PRINT#L,name2$;" found "ys2k%y" t 
oys" 

1128 PRINT@LiPRINTH#L," Press <Space 
Bar) to play again" 

1130 aaS=INKEVYS:1F aa$<>" " THEN 1138 
1140 RUN 

1158 END 

1168 REM ## guess coordinates ## 

1178 CLS#LEPEN #1, QsPRINTHL,SPC(S)5"C 
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edric and the lost toys":PEN #1,3 

118@ PEN $1,0:1F pl%=@ THEN PRINT#1,n 

amel$;SPC(5); "score ";s1% ELSE PRINT# 

1 ,name2$;SPC(5); "score "332% 

1198 PRINT#I 

1208 PRINT#L,"Enter your first guess 
"HtPEN #1,3 

1218 s$=INKEY$sIF s$="" THEN 1210 

1220 s$=UPPER$(s$)sIF ASC(s$)>54 OR A 

SC (5$)<49 THEN 1218 

1230 PRINT#L,s$;" "; 

1248 t$=INKEYS$s1F t$e"" THEN 1248 

1258 t$=UPPERS(t$):1F ASC(t$)>49 OR A 

SC(t$)<45 THEN 1240 

1260 PRINT#L,t# 

1278 GOSUB 1518 

1280 IF fak=i THEN CLS#i:GOTO 1170:RE 

MH #* check if already guessed #4 

1298 pobf(t,s) :pb=tipass 

1300 PEN #1,O:PRINT#1, "Enter your sec 

ond guess "s:PEN #1,3 

1310 S$=INKEYS:IF s$="" THEN 1318 

1320 s$=UPPER$(s$):1F ASC(s$)>54 OR A 

BC (s$)<49 THEN 1310 

133@ PRINT#L,s$;" "; 

1340 t$SINKEY$: IF t$2"" THEN 1340 

{350 tS=UPPERS(t$)sTF ASC(t$) 49 OR A 

SC(t#)<65 THEN 1340 

1360 PRINT#L ,t# 

1378 SOSUB 1516 

138@ IF faz=l THEN CLS@1:G07O 130:R 

EM ## check if already guessed ## 

1398 qrob4’(t,s):qb=tiqazs 

1408 IF qa=pa AND qh=pb THEN PRINT CH 

R$(7):GOTO 1380 

1410 IF peq THEN CLO#i: j2=jz+lrob% (qh 

qa)=@iobZ(pb,pa)=@:GOSUB 189@:G0SUB 

1950:RETURN 

1428 REM ## end of turn #% 

1430 CLO@LsLOCATE #1,1,2sPRINT#I, "Pre 

a5 the <Space Bar) to continue.” 

1440 a$=INKEV$iIF a$<>" " THEN 1448 

1450 REM ## erase graphics ## 

1468 LOCATE 2+{pa-1)#4,5+(pb-1) #3: PRI 

NT" " 

1478 LOCATE 2+(qa-1)#4,5+(qb-1)4#3:PRI 

NT" ms 

1480 pld=platiilF pl4>1 THEN plZ=8 

1490 RETURN 

1588 REM #* print graphics at correct 

coordinates ## 

1518 t2ASl(t$)-64: s2ABC (s$)-48 

1520 fared 

1538 LOCATE 2+(s-1)#4,d+(t-1)#3 

1340 IF obd(t,s)2@ THEN fadeL:PRINT C 
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HR$(7) :RETURN 

1550 REM ## check contents of array t 
a find aut which toy is there ## 

1548 IF obé(t,s)=1 THEN PRINT aa$ 
1578 IF ob4(t,s)=2 THEN PRINT ab$ 
1580 IF obX(t,s)"3 THEN PRINT ac$ 
1398 IF ob4(t,s)=4 THEN PRINT ad$ 
1608 IF obA(t,8)25 THEN PRINT ae$ 
161@ IF obX(t,s)=6 THEN PRINT af$ 
1628 IF ob4(t,3)27 THEN PRINT agg¢ 
1430 IF ob&(t,s)=8 THEN PRINT ah¢ 
1440 IF obA(t,s)=9 THEN PRINT aif 
1650 IF ob&(t,)=10 THEN PRINT aj$ 
1668 IF obA(t,s)=ii THEN PRINT aks 
1670 IF ob&(t,s)#i2 THEN PRINT al$ 
1680 IF ob&(t,s)=13 THEN PRINT ans 
1690 IF obA(t,s)214 THEN PRINT an$ 
1708 IF obA(t,s)=15 THEN PRINT ao$ 
1710 [F obd(t,s)=16 THEN PRINT ap$ 
1728 IF obA(t,s)"17 THEN PRINT ags 
1730 IF obA(t,s)=18 THEN PRINT ar$ 
1740 IF obZ(t,s)519 THEN PRINT ass 
1750 [F ob4(t,s)#28 THEN PRINT ats 
1768 RETURN 

1778 REM ## titles and instructions # 
# 

1780 CLSsWINDOW #2,4,36,1,3:PEN #2,31 
PAPER #2, 1:CLS#2 

1798 LOCATE #2,4,2sPRINT#2, "Cedric an 
d the lost toys" 

1800 LOCATE 6,61PRINT"A game for the 
Amstrad CPC444" 

181 LOCATE 11,8:PEN 2sPRINT"by Stey 
eW, Lucas" 

1828 LOCATE 2,10:PEN 1sPRINT*Cedric h 
as lost his toys and doesn’t know 
where to find thea." 

183@ PRINT"Can you help hia? The toys 


are hidden onthe board, which is lab 
elled A ta E downand 1 to 8 across." 
1842 PRINT"You can look at what is in 
a square by typing in the coordinat 
es (number first)"; 

{85@ PRINT"I¢ the two toys are the sa 
he, you will score one and the toys 
Will remain on the screen. [f they 
are not, they will disappear," 

186 GOSUB 1898 

1878 RETURN 

1888 REN ## tune for finding aatching 
toys #4 

189@ RESTOREsFOR x=i 70 6 

1988 READ diSOUND 1,d,1@ 

1918 NEXT 

1928 DATA 478,478, 426,478,358, 426 
1938 RETURN 

1948 REM ## set the scores if match ¢ 
ound ## 

1958 IF pld=@ THEN sizesiz+1 ELSE 92% 
Bg 2h+1 
1968 RETURN 


Give your fingers a rest... 


All the listings from this month’s 
issue are available on cassette. 


See our special offer on Page 77. 


ise 
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CASTLE 


BLACKSTAR 


“A cut above the usual standards, could well become a classic.” 
POPULAR COMPUTING WEEKLY 


“Highly recommended!’ 
HOME COMPUTER WEEKLY 


‘Where this program really scores is in the description of its 
locations and the large (200 word plus) vocabulary.” 
MICRO ADVENTURER 


“Great game and | look forward to Artemis Quest 2”. 
CRASH 


“An excellent, absorbing, detailed and tough adventure.” 
COMPUTER AND VIDEO GAMES 


£6.95inc.P.&P. CPC464 


CDS SOFTWARE LTD. 
Silver House, Silver Street, 
Doncaster DN1 1HL 

Tel: (0302) 21134 


seria me order form and det: 
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JANUARY: Smiley: Avoid the 
Grumpies with Smiley round the 
labyrinth. Code: Be a mastermind 
and play this intriguing logic game. 
Binary: Baffled by binary bits? Let 
our utility help you out. Dancer: 


Now you’se started 
computing with the 


Amstrad you'll want 
to read EVERY issue! 


Simple but fun. This is a lovely 
mover. Trapper: Pen the monsters 
of the maze. Scroller: A slick 
sideways scrolling routine. Letter 
Litter: Learn the keyboard with this 
entertaining educational game. 


FEBRUARY: Digger: Search for 
crystals and avoid the aliens. 
Simon: Our Amstrad version of this 
simple children’s game. Kingdom 
of Craal: A devious fantasy full of 
surprises. Text Editor: A powerful, 


yet simple word processor, Reac- 
tion Timer: Test out your reactions 
on this simple little program. 
Origins: The effects of changing the 
graphics origin produce some dram- 
atic effects. 


MARCH: Starfleet: Can you 
qualify as a starfleet pilot? Swamp: 
Join the desperate battle against the 
giant frogs. Parachute: Guide your 
parachute to earth in this edu- 
cational program. Dump: An 


invaluable screen dump utility for 
Modes O and 1. Hexer: A hexa- 
decimal loader. PLUS an extra 
full-length game 3D Four ina Row 
— an enthralling game of luck, skill 
and strategy. 


APRIL: Mad Adder: Appease our 
aggravated adder’s appetite. Egg 
Blitz; Eggs, boy scouts and a stunt 
pilot make up the fun. Simple 
Sprites: Create sprite-like effects 
for your programs. Caesar Cipher: 
Learn how to crack the code. Pilot: 


An easy to learn lanquage, ideal for 
computer aided learning. Spelling: 
Leam to spell with this educational 
game. Aleatoire: Find out the odd 
ways mariners make decisions. 
Palindrome Tester: Slick string 
handling techniques. 


MAY: Tronn Cycles: Enter the 
Maze of Death and pit your wits in 
this two player arcade classic. 
Castle of Fear: Fantasy is the order 
of the day in this baffling concoctior. 
by the devious A Team. Mouse: 
Can you trap and pounce on the 
furry fellow in this simple but 
addictive game? Cedric: Have fun 
with shape recognition in this novel 


interpretation of pelmanism. 
Character Maker: Define your 
own characters with our superb 
utility. RSX: Provide and implement 
new commands for your micro. 
Cards: Play the conjurer and baffle 
your friends with an apparently 
simple computer card trick. Trees: A 
clever routine to create ‘trees’ from 
Trevor Roberts Analysis. 


owl Weare pleased tobe able to offer you annual 


Woe 


How to keep your 


collection complete 


Boundin rich burgandy pve and 
bearing the Computing with the 
Amstrad logo, this handsome 
binder will hold a year's supply of 
the magazines firmly secured in 
place with metal rods. 


Only £3.95 (UK) 


Computing with the Amstrad 


subscription for the monthly listings cassette 
for only £40, and on 3" disc for only £70. 


Protect your keyboard with our 
luxury dust cover made of soft, 
pliable, clear and water-resistant 
vinyl, bound with strong cotton 
and decorated with the 
magazine's logo. 


Dust Cover Only £3.95 


ORDER FORM 


All prices include postage, packing and VAT and are valid to June 29 


Please enter your requirements by ticking boxes eo) 
UK£12 6001 
Annual — EIRE £13 (IR£16) 6002 
subscription Overseas (Surface) £20 6003 
Overseas (Airmail) £40 6004 
Please send me my free April issue listings cassette ae] 
Commence with issue LOTAG = 


Back issues ete 

ebruary 
£1.25 UK March 
£1.50 Overseas (Surface) April 


danuary (Smiley) 
February (Digger) 
March (Starfleet) 
April (Mad Adder) 
May (Tronn Cycles) 


Tapes 
£3.75 (UK & Overseas) 


January (Smiley) 
February (Digger) 
March (Starfleet) 
April (Mad Adder) 
May (Tronn Cycles) 


£6.75 (UK & Overseas) 


Cassette tape and disc 
annual subscription 


| 
| 
| 
i 


Tape £40 (UK & Overseas) 6005 
3" Disc £70 (UK & Overseas) 6059 
Commence with tape/disc 
(state month) TOTAL — 
Dust Cover 6037 [_—_] 
£3.95 (UK & Overseas) TOTAL 
Binder 6038 [] 
£3.95 UK 
£5.00 Overseas TOTAL | 
ee 
Payment: please indicate method () TOTAL 
] (1) Access/Mastercharge/Eurocard j 
CEES 1) fos Ue ARES aa UST jet ad yj Wey 
j [5 Barclaycard/Visa | 
(erence EASES Ef ST TS} 
| [1 Cheque/PO made payable to Database Publications Ltd. ] 
| Name Signed | 
| Address 
Send to: 


Computing with the Amstrad, FREEPOST, Europa House, 
68 Chester Road, Hazel Grove, Stockport SK7 5NY. 
(No stamp needed ifpostedinUK) Please allow 28 days for delivery 


YOU CAN ALSO ORDER BY PHONE: | 
All other enquiries Orders (24 hours) 
061-480 0171 061-480 0173 
Don't forget to quote your credit card number and fulladdress 


SS a ES Ba Bee Se) ee 
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Hobbit £12.85 Jet Set Willy 
CUT LOADING TIME DRAMATICALLY AND LIST a Be 


YOUR WELCOME TAPE WITH OUR WELL KNOWN i sdDark Star £6.95 Technician Ted 
“SYCLONE” PROGRAM Redcoats £5.95 Ghouls 
S. Davis Snooker £6.95 All Level 9 
KE Emerald Isle £6.95 All Interceptor 
al pO £5°95 son 
ridge Player £7.50 efend or Die 
TRANSFER YOUR PROGRAMS ONTO DISC WITH Football Manager £6.95 Mission 1 Volcano 
OUR EXCITING NEW PROGRAM “TRANSMAT” Basic Pt. | £17.00 Basic Pt.2 
M/C Tutor £13.00 American Football 
NOW AVAILABLE Mutant Monty £5.95 Se 
Pyjamarama £7.50 rbert 
SCRIPTOR FOR THE DMP 1 PRINTER OWNER eae ayeeand £6.95 The Pyramid 
Backpackers Guide £6.50 Amsword 
ee ee Devpac £20.50 All Bourne 


i i 2 Heath 
Always the first and the best software, offering more features and better value for money ee eae price ea a ATC 


than other similar programs available. We also offer a fast reliable and friendly mail-order 
service. Look at just some of the features our programs offer. Cheques/P.O. to:'Write or phone for fr logue 


MICRO COMPUTER WORLD 
ot ale 1 LANE CLOSE, LONDON NW2 6Q2Z. Tel: 01-452,0893 
Copy and or convert your programs to load in up to 4 times faster. Beware of cheap bootleg software — all our titles are originals 
Features include: + Commands available from Basic + Choice of 4 loading speeds, 1000 


to 4000 baud + Copies all tested software + Comprehensive header reader + Load and 


list protected basic programs. 
Cassette £6.95 inc P&P SHEKHANA COMPUTER SERVICES 


RRP Our Price RRP Our Price 
TRANSMAT Air Traffic Control 7.95 6.75 Screen Designer 1495 12.95 


Transfer your software onto the Amstrad Disc System (DDI-1) American Football 999 8.25 Star Avenger 6.95 5.95 
Features include: + Faithfully transfer all programs + Add relocater if necessary + Auto or Sorcery 8.95 7.90 Star Commando 8.95 775 
non-auto modes + Erase or rename programs + Comprehensive header reader. Chess (Mikgn) 895 5.75 Steve Davis Snooker 795 6.50 

Cassette £7.95 inc P&P Blagger 8.95 7.90 Fruity Frank (Kuma) 6.95 5.75 
Dark Star 7.95 6.75 Technician Ted 7.95 6.90 
Gillians Gold 6.95 6.25 Test Match 6.95 5.90 
ZEDISII Flight Path 737 6.95 5.90 Forest at Worlds End 6.00 4.99 

Football Manager 7.95 6.75 Message from Andromeda 6.00 4.99 
A comprehensive machine code editor and disassembler. Gems of Stradus 7.95 = 675 Jewels of Babylon 6.00 499 
Features include: + Continual menu display + Break point insertion + Register inspection Fighter Pilot 8.95 7.90 Heroes of Karn 6.00 4.99 


+ High speed hex.code/string search + Hex.code/string input. masa Willy ae oe chopmer quel aa ta 


Instructions included to disassemble the ROMs. Mission iValcano a95 790 Zanetaesemblen| Cane 
Cassette £6.95 inc P&P All Level 9 Games 995 8.25 Guide to Basic Part 1338 18.00 
Disc £10.95 inc P&P Pyjamarama 6.95 §.75 Azimuth 3000 8.99 7.90 

Cheques/PO's to: 
SHEKHANA COMPUTER SERVICES 
PRINTER PAC 1 653 Green Lanes N8 OQY London 

A Printer enhancement program for the DMP1 and Epson compatible printers such as (Mail Order Address only) 

the Epson RX80 and Shinwa CPA80. ; Tel: 01-800 3156 (S.AE. for List) 

Features include: + Screen dump in all modes + 2 sizes of dump for Epson compatible —or visit our shop at Marbles Shopping Centre, Unit 11, 527-531 Oxford Street, WIR 1DD. 

printers + Text dump in all modes + 3 new type styles for the DMP1 + Abbreviated Open 7 days a week from 10am — 19.00pm (opps. Marble Arch Tube Station) 


codes to printer: Cassette £5.95 inc P&P Above discounts applicable only on production of this advert. 
Disc £9.95 inc P&P 


**SCRIPTOR™ SIMPLE ACCOUNTS 


For the DMP1 Printer. This marvellous program allows 6 type styles to be used on 


the DMP1. for the 


Including realwriting, italics etc. on sets of your own design. It also overcomes that lower 


case descender problem brilliantly. The program pack only £6.95 inc P&P or £10.95 on AMST RAD Cc PC 464 


disc. S.A.E. for details. 
@ FULLANALYSIS OF INCOME & EXPENDITURE 
ALL DISC BASED TITLES HAVE @ POWERFUL ENTRY SEARCH ROUTINES 


FREE DISC SPACE AVAILABLE TO USER © CONSTANT UPDATE OF CREDITORS AND DEBTORS 
@ SPECIAL IN-DEPTH ANALYSIS OPTION 
* SPECIAL OFFER * @ VAT REPORT @ DATE SORT 
Worth £3.95 @ MONTHLY AND YEAR TO DATE REPORTS 
Buy more than one title and get a cassette containing @ FULLY DOCUMENTED @ EASY TO USE 
a real time Digital Alarm Clock FREE (while stocks last) ONLY £29.95 including VAT and carriage 


PRIDE UTILITIES LTD (CWA) Full specification manual and worked examples available on request. 
7 Chalton Heights, Chalton, Luton, CORNIX SOFTWARE LTD 
Beds. LU4 9UF. 16 Kneesworth Street, Royston, Herts. SG8 5AA. 
Tel: Royston (0763) 46065 


Europe — ADD £1 per title Rest of World — ADD £1.50 per title Specialists in business and financial software for the serious user. 


SUNARO Software DISCOUNT SOFTWARE 


BEST FOR AMSTRAD SOFTWARE GAMES BUSINESS & TUTORIAL 


Order any two titles deduct £1 extra FOOTBALL MANAGER... .95 GRAPHICS DESIGNER . ve 9.25 


z . GUIDETOBASIC1 .. 15.95 
SURVIVOR 6.25 MUTANT MONTY 7.85 ROLAND ON THE ROPES 7.85 FLIGHT PATH 737 ... . GUIDE TO BASIC 2 .. 15.95 


SOFTWARE STAR 6.95 CENTRE COURT 7.85 ROLAND AHOY 7.85 

DARK STAR 6.95 DEFEND OR DIE 6.95 ROLANDINTHECAVE 7.85 Pa ee Ba ARC WR TEETER abe 
FIGHTER PILOT 7.85 HOME RUNNER 7.85 TECHNICIAN TED 7.85 SULTANS MAZE ; ! AMSCALC SPREADSHEET 15.75 
HEATHROW ATC 6.95 HAUNTED HEDGES 7.85 MUSIC COMPOSER 8.75 HOUSE OF USHER . % HOME BUDGET 1575 
CHOPPER SQUAD 5.25 THE HOBBIT 13.25 ERIK THE VIKING 8.75 GEMS OF STRADOS " AMSCALC+ ae 26.95 
SPECIAL OPERATIONS 6.25  JEWELSOFBABYLON 5.25 TASWORD 464 17.95 CODENAME MAT . DEVPAC ASS/DISS 19.95 
BATTLE FOR MIDWAY 8.75 MESSAGE ANDROMEDA 5.25 = TASPRINT 464 8.75 HARRIER ATTACK . ABERSOFT (FORTH) 19.95 
TRIPODS 10.25 FOREST AT WORLDS END 5.25 CONCISE BASIC 10.95 SPANNER MAN 30 CONCISE BASIC SPEC 15.95 
SORCERY 7.85 STEVE DAVIS SNOOKER 6.95  CONCISEFIRMWARE 17.95 JET SET WILLY . 6.75 CONCISE FIRMWARE SP 1595 
MACHINE CODE TUTOR 13.25 FLIGHT PATH 737 6.25 SNOOKER 7.85 POLE POSITION ... ".. 7.50 INTRO TO SOUND PT. 1 : 8.99 
EMERALD ISLE 7.85 FRUITY FRANK 6.25 GRANDPRIXDRIVER 7.85 : bia 
ER BERT §.25 MANIC MINER 6.25  FANTASIADIAMOND 6.95 ALL PRICES INCLUDE POSTAGE & VAT 


New titles available immediately upon release Please send cheques/postal orders to: 


hee MJC SUPPLIES 
SUNARO SOFTWARE (CA ; , 
PO Box 78, Macclesfield, Cheshire dk10 3PF SCOJA’ LONDON ROAD, HITCHIN, HERTS. 
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Amstrad CPCUuGH 


Speech Synthesizer 


The dk’tronics Amstrad speech synthesizer and powerful stereo amplifier uses the popular SLO/256 speech chip and 
has an almost infinite vocabulary. It is supplied with a text to speech converter for ease of speech output creation:, 
Everything you wish to be spoken is entered in normal English, without special control codes or characters, it is there- 
fore extremely easy to use. The voicing of the words is completely user transparent and the computer can carry on its 
normal running of a program while the speech chip is talking. The speech output from SLO/256 is mono and directed to 


both speakers. 


Stereo Output 


To utilise the Amstrad stereo output on the back 
of the computer, the interface has a built in stereo 
amplifier, this gives all sound output a totally new 
dimension and greatly improves the sound quality 
and volume over the computer’s internal speaker. 

Any sound that previously came out of the mono 
speaker will now be sent out via the interface in 
stereo. All programs that use the sound in anyway 
(i.e. commercial software) will now output 
through the interface, which is fitted with volume 
and balance controls . 


Speech Synthesis 


The Amstrad speech synthesis utilises parts of the 
spoken word known as allophones. These are 
actual sounds that go to make up speech. The 
SP0256 allophone speech synthesis technique 
provides the ability to synthesize an almost un- 
limited vocabulary. Fifty-nine discrete speech 
sounds (allophones) and five pauses are stored in 
the speech chip’s internal rom. 


Text to Speech 


Although there are only 26 letters in the alphabet, letters 
have a totally different sound when used in different words. 
For example, The ‘‘a’’ in ‘Hay’ is much longer and softer 
than in ‘Hat’. When you speak you automatically make 
adjustments because you know just how a word should sound 
Not quite so easy with a computer. 

The machine code software is mainly developed to this mode 
of operation. 3.5K is used for tables which contain the rules 
& exceptions to the rules of the English Language. 

e.g. I before E except after C) This therefore allows the user 

to enter words to be spoken in normal English, 


Speakers 


Supplied with the Speech Synthesizer are two high quality 4” 
speakers these have been designed to compliment theAmstrad 
Computer. They are fitted with 1 metre of cable and can be 
positioned for the best stereo effect. The synthesizer inter- 
face fits neatly on to the rear of the computer. It has a 
through connector to enable other interfaces (e.g. Disc Drive) 
to connect to the rear of the synthesizer for ease of expansion 

Please send S.A.E. for a copy of the instruction manual 
which will give full and comprehensive details. 


cK tronics 


Saffron Walden, Essex CB11 3AQ 
Tel: (0799) 26350 10 lines 


New Basic Commands 


There are 8 new Basic Commands which control all the 
functions of the interface. Making the Synthesizer very easy 
to use. You can even control the speed at which it will talk 
to you. Or use the synthesizer to create sound effects like 
a fourth sound channel. 

10 PRINT ‘‘ ‘AMSTRAD‘”’ 

The above is an example of the Syntax for entering speech 
into the computer and shows how simple it is to use. 

The instruction book gives comprehensive details and 
examples of how to use the interface both from machine 
code and basic. : 


How to Order 


The Amstrad Speech Synthesizer costs only £39.95. You can 
obtain your synthesizer through any good computer store or 
by completing the order form and returning it to: 

dk’tronics Limited, Shire Hill, Saffron Walden, Essex. OR 

by telephone quoting your barclaycard or access number. 
Orders normally despatched within 24 hours. 

Please rush me 


... [QTY] Amstrad Speech Synthesizer at £39.95 +£1.25 p&p 


IT enclose cheque/PO/Cash for Total £..............00c00c000e 
or debit my Access /Barclaycard No. 


CO 


a 


Aina (HAD GPUS 


Kuma Computers Ltd., Unit 12, Horseshoe Park, 
Horseshoe Road, Pangbourne, Berks RG8 7JW. 


Please send full catalogue on Amstrad CPC464 
products. 


! own an Amstrad CPC 464 computer [_] 


Trade Enquiries Phone 07357-4335. 


